SEMINAR NO. DA§800 
NOS CYBIL 



STUDENT HANDOUT 



PROPRIETARY NOTICE 

The ideas and designs set forth in this document 
are the property of Control Data Corporation and 
are not to be disseminated, distributed, or otherwise 
conveyed to third persons without the express 
written permission of Control Data Corporation. 



REVISION RECORD 


REVISION 


DESCRIPTION 


A 


Manual Release. 


(07-15-83) 




B 


Manual Update. Replaced page 8-6. 


(11-05-84) 




































































Publication No. 
DA3800-1 





REVISION LETTERS I, O, Q ANO X ARE NOT USED 

NOS CYBIL 



©COPYRIGHT CONTROL DATA CORPORATION 
All Rights Reserved 



Address comments concerning 
this manual to: 

CONTROL DATA CORPORATION 
National Coordinator 
Bloomington Facility (MIMA02B) 
5001 West 80th Street 
Bloomington, Minnesota 55437 

or use Comment Sheet in the 
back of this manual. 



CONTENTS 





Introduction to the Course 


iii 


1 


Introduction 


1 


2 


Program Structure 


9 


3 


Constants and Variables 


17 


4 


Type 


25 


5 


Statements and Operators 


57 


6 


Procedures 


89 


7 


Standard Procedures 


105 


8 


Machine Dependencies 


131 


9 


Input/Output 


149 


10 


Compile Time Facilities 


185 


11 


Interactive Debugger 


203 




Appendix A 

ASCII Character Set 


221 




Appendix B 
I/O Examples 


227 




Appendix C 
Exercises 


231 




Appendix D 
Project 


237 



INTRODUCTION TO THE COURSE 



This course is designed to provide the student with a comprehensive introduction to 
CYBIL. The course will include language concepts, language syntax, and coding 
techniques. 

OBJECTIVE 

Upon completion of the course, the student will be prepared to implement software 
designs in CYBIL. 

COURSE DESCRIPTION 

This version is oriented primarily toward the student who has some prior programming 
experience. It consists of lectures, with a set of examples to illustrate concepts and 
constructs. It also provides exercises and a project which supports the lectures and allows 
time to practice the concepts presented. 
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NOS CYBIL COURSE OUTLINE 



Introduction 

A. Course Organization 

B. Compilers 

C. Documentation 

D. Metalanguage 

1. Symbols 

2. Constructs 



Program Structure 

A. Module 

B. Declarations 

C. Scope of Identifiers 

D. Structured Programming 

E. Elementary Constructs 

1. The alphabet 

2. Identifiers 

3. Basic symbols 



III. Constants & Variables 

A. Constants 

1 . Declarations 

2. Types 

B. Variables 

1. Declarations 

2. Types 

3. Lifetime 

4. Attributes 

5. Initialization 



IV. Type 

A. Declaration 

B. Scalar Types 

1. Integer 

2. Character 

3. Boolean 

4. Ordinal 

5. Subrange 

6. Real 



C. Structured Types 

1. Sets 

2. Arrays 

3. Strings 

4. Records 

D. Pointer Type 

V. Statements & Operators 

A. Assignment 

B. Operators 

C. Structured 

1. BEGIN 

2. WHILE 

3. REPEAT 

4. FOR 

D. Control 

1. IF, CASE 

2. EXIT, CYCLE 



VI. Procedures 

A. Declaration 

1. Program 

2. Procedure 

3. Function 

B. Parameters 

C. Nested Procedures 

D. Attributes 

E. Pointer to Procedure 



VII. Standard Procedures 

A. Conversion 

B. Adaptables 

C. Storage Allocation 

1. System heap 

2. User heap 

3. Sequence 

4. PUSH 

5. Adaptables 



VIII. Machine Dependencies 

A. Data Representation - CY170 

B. CELL Data Type 

C. MACHINE DEPENDENT FUNCTIONS 

D. ALIAS 

E. GENERAL INTRINSICS 



IX. Input Output 



1: Files 

2. Open/Close 

3. Read/Write 

4. Utilities 



X. Compilation Time Facilities 

A. CYBIL Command 

B. Compile-time statements 

C. Layout Contro! 

D. Toggles 

XI. Interactive Debugger 

A. Breakpoints 

B. Traps 

C. Procedures 

D. Utilities 
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INTRODUCTION 
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COMPILERS 



O 



INPLEHEflTRTIOti 


SOURCE CODE 
COHPILRTIOtl Oil: 


OBJECT CODE 
EHECUTIOH ON: 




CC 


CVBER 170 


CVBER 170 




Ci1 


CVBER 170 


1168000 




CP 


CVBER 170 


P-CODE 




CS 


CVBER 170 


CVBER 200 
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SS 


CVBER 200 


CVBER 200 
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^q^^lr 



ft 



CC COMPILER 



79/12/-13. 08.25.14. L32T1 

<16> CYBER 176 S/-N 101 NOS CLSH. NOS 1-9G06176'-R4B 

FAMILY: j.JI.1212 

PASSWORD 

TERMINAL: 25* NAMIAF 

RECOVERS CHARGE: CHARGE !• 391 6 j 25008705 



READY. 
ASCII 

READY. 
BATCH 
$RFL».0. 



.-'SES.CYBIL I=FIR-ST CC 

♦ COMPILING FIRST 

♦ END CYBIL FIRST -> LISTING? LGO 
, -' J SES . L I NK 1 7 C YBtL IB 

♦ END LINK 170 LGOB 



/LGOB 
LGDB. 

/REWIND* LISTING 
SRE WINDi. LI STING. 
/LIST, F=L I STING 

1 CYBIL.-CC VI. 790712 SOURCE LISTING - ONE 

79-12-13 08 J 42: 05 PAGE 1 

1 MODULE ONEJ 

2 PROGRAM MAIN; 
10 3 VAR A»B-.C: INTEGER; 
10 4 
10 5 A: = tO» 

16 6 B:=20; 

17 7 C:=A+B; 

20 8 PROCEND MAIN; 
20 9 MODEND ONE 

1 CYBIL-'CC VI. 790712 COMPILATION SUMMARY - ONE 

79-12-13 08:42:05 PAGE 1 
9 LINES COMPILED. 

NO COMPILATION ERRORS. 
EOI ENCOUNTERED. 



1-3 



o 

CYBIL DOCUMENTATION 

♦ CYBIL CLASS MOTES 

♦ CVBIL REFERENCE RRtlURL (60H55280) 

♦ EHTERNAL SPECIFICATION FOR CVBIL 
I/O (RRH2739) 

♦ CVBIL INTERACTIVE DEBUGGER <RRH31H2) O 
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^^HI^F 



METALANGUAGE 

• A LANGUAGE USED TO DESCRIBE A 
LANGUAGE 

• USED FOR CYBIL SPECIFICATION 

• DEFINES STRUCTURE (SYNTAX) 

• DOES NOT DEFINE MEANING (SEMANTICS) 

• DOES NOT DEFINE LIMITS 
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METALANGUAGE 

< > Syntactic construct 

•: = Is defined as 

[ ] Zero or one occurrence 

{ } Zero or more occurrence 

I Alternate definition (or) 

— Underscore denotes 

language element 

For example: variable declaration 



o 
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PROGRAM STRUCTURE 



O 
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MODULE STRUCTURE 

MDDULE SKELETON; 

•C CONSTANT DECLARATIONS > 
:: VARIABLE DECLflRfiTIDNS > 
C TYPE DECLflRfiTIDNS > 
C PROCEDURE DECLflRfiTIDNS 



•C DECLflRfiTIDNS > 
•C STATEMENTS > 



MDDEND SKELETON 



c/ 



f 1 



o 
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o 



A CYBIL PROGRAM 



module sample; 
type range* 0. .£0; 
var r: integer* 
count: range; 

program main; 
var a: integer; 
procedure power; 
var i : range; 

R:=i; 

FOR l:=l TO COUNT DD5 
R:=c'*R; 

forend; 
procend power; 

•c executable statements 

CDUNT: =55 

power; 
a:=r; 

procend main; 

MODEND 
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SCOPE OF IDENTIFIERS 



O 



MODULE SCOPE; 



•C MODULE DECLARATIONS J- 



PROGRAM MAIN? 



■C DECLARATIONS 



PROCEDURE AAA; 



•C AAA DECLARATIONS 



PROCEND AAA; 



PROCEND MAIN; 



PROCEDURE BEE? 



•C BEE DECLARATIONS 



PROCEND EBB 5 



MODEND SCOPE; 
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BASIC CONSTRUCTS 



• ALPHABET 



IDENTIFIERS 



SYMBOLS 
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o 



IDENTIFIERS 



• USER DEFINED 

• DENOTE 

— CONSTANTS 

— VARIABLES 

— TYPES 

— PROCEDURE NAMES, etc. 

• RULES 

— 31 CHARACTERS 

— LETTER FIRST 

— THEN LETTER, DIGIT, OR # $ 

• EXAMPLES 

— LINES_PER_PAGE 

— REGISTER#3 
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BASIC SYMBOLS 

• RESERVED WORDS 

ARRAY CASE CONST 

ELSE FOR INTEGER 

OF RECORD STRING VAR etc. 

• SPECIAL MARKS 

+ -;(]= A etc. 



DIGRAPHS 

:= <= >= <> ?? 

r 3 ftW^s. ***W > 
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CONSTANTS & 
VARIABLES 

O 
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CONSTANTS 

CONST constid = value; 

• INTEGER 

• CHARACTER 

• BOOLEAN 

• POINTER 

• STRING 

• REAL 

• LONGREAL 
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VARIABLES 

VAR varid : type; 

• TYPE 

• INITIALIZATION 

• LIFE TIME 

• ATTRIBUTES 

• REFERENCE Q 

VAR varid : [attributes] type : = initialization; 
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VARIABLES 



MDDULE CDNSTflNTs! 
PROGRAM mrinS 
CONST 

B I TPflTTERN = 110 1 1 CB> ? 
PLUSSIGN = *"+'? 

DEBUG = FALSE? 
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V.flR 




i : 


! INTEGER? 


e: 


' BDDLEflNj 


c « 


I CHAR? 



E 



= BITPATTERNj 
= PLUSSIGN? 
= DEBUG? 



o 



PRDCEND main! 



MQDEND CONSTANTS. 
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TYPE 



O 



© 



4-1 



o 

TYPE DECLARATION 

TVPE typeid ■ type; 

ID FIXED TVPES 

♦ SCAUR 

♦ STRUCTURED 

♦ POINTER 



B) FINABLE TVPES 

♦ RDRPTRBLE 

♦ BOUND VARIANT RECORDS 



v.y 
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SCALAR TYPES 



• INTEGER 

• CHARACTER 

• BOOLEAN 

• SUBRANGE 

• ORDINAL 

o 
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o 

SUBRANGE 



TYPE C PREDEFINED > 

CH = CHRR? 

INT = INTEGER? 

TF = EDDLEflNJ 
RL = RERL.5 

TYPE -:l SUBRANGE > 

LETTER = •'H'*' .. '"" Z * '" !• 

ADDRESS = CK16> -- 7FFFFFF <16> !• 

REGISTER = . . 7? 

INDEXl = - . 1 OOp 

index£ = - £0 - - £0? 

LIMIT = I.Oe. - 3 .. 1 . IJE + 3 5 
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SCALAR TYPE 



o 






1 
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29 


♦ERROR* 


3 





31 


♦ERROR* 


32 


♦ERRORS 


■-i •-. 





34 





35 





36 



1 MODULE SMLflR_INDEX_TYPES! 

PROGRAM main? 

TYPE < SUBRANGE > 

LETTER = ''A' .. -'Z-J 

ftDDREss = 0<16> .. 7ffffff , ::16,"' ? 

REGISTER = .. 7 j 
INDEXl = . . 1 00 J 

index£ = - £0 . . £0? 

limit = 1.0e - 3 .. 1.0e + 3; 

TYPE C ORDINAL > 

COLOR = (RED! ORANGE? YELLDWJ GREEN? BLUE) ? 
RONS_BOOLEAN = (YES) MAYBE 5 NO.:' ? 
TYPE-FORM = (NUMERIC? SYMBOLIC? POINTER; 1 J 

device-type = <lp51£? cr4£5? dk844? dk819? nt669> ; 
TYPE -C SUBRANGE OF ORDINAL > 

HOT_COI_OR = RED . . YELLOW? 

disk = dk844 . . dk819? 



VAR 

REEUEST : D I SK ? 

EXECUT I l/E_DEC I S I ON ! RDNS_BQDLEfiN ? 

STflRTIN5_CHf=lH! LETTER? 

•C BEGIN STATEMENTS > 

REEUEST := DK844? 
heeuest := NT669? 
EXECUTH/E_DECISION := YES? 
EXECUTIl^EwDECISION := SO? 
STARTING_CHAR I = " 5 '' ? 



PROCEND main? 
36 MODEND scalar- index_types? 






FATAL 
FATAL 

FATAL 



LINE 

30 

3£ 

33 



ERR COL TEXT 

Value out of range. 
Undeclared identifier - GO. 

Value out of range. 
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STRUCTURED TYPES 



STRING 



ARRAY 



• RECORD 

o 
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SET CONCEPTS 



O 



TYPE settypeid = SET OF type; 



• REPRESENTATION 



m- 
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MEMBERSHIP 



INITIALIZATION 



v,y 



ASSIGNMENT 
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SET INITIALIZATION 



o 











000000 







000000 








♦ERRDR* 

♦ERROR* 
000000 
000000 

♦ERROR* 



♦ERROR* 

000000 




4 
5 
6 
7 



10 

11 

IS 

13 

14 

15 

16 

17 

18 

19 

£0 

£1 

£2 

£3 

£4 

£5 

£6 

£7 

£8 

£9 

30 

31 



34 



MODULE STRUCTURED-TYPE ? 

TYPE aNITIfiLIZfiTIOrO 

color = (rec!i drangeii yellow? green? blue) j 
hot-cdldr = red . . yellow? 

RRNGE = ~ 10 . . 105 

TYPE <SET> 

ACCESS = SET DF CN-RERD? N-WRITEj N_EX) ? 

RAINBOW = SET DF COLOR? 

FLAME = SET OF HOT_COLOR? 

NZ-SET = SET OF 1 .. 10? 

NUM-SET = SET OF ~ 5 . . 5? 

RLF-SET = SET OF - "' fl " . . "' Z "' ? 

I/ALSET = SET OF RRNGE ? 

VfiR 

F". FLRME? 

N! NZ-SET != C4? 5? 6]? 

F»: ALF-SET := Ll'f 

PROGRAM MFt in? 

F := RED? 

f := 1? 

f : = Sflfime CredH ? 

n := 15 

n : = $nz_setC1? 7? £3? 

r := Srlf_setCfi? b] ? 
r := $rlf_set C'R'' ? '"B"]? 
PROCEND mr in? 

MODEND STRUCTURED-TYPE? 



D-TYPE 

LINE 

£5 

£6 

£9 




SEVERITY 
ERROR 
ERROR 
ERROR 
3£ ERROR 



V0.1 7709£0 ERROR LISTING - structure 
?QsQ?sZ6. 16:18:45. PAGE 1 

ERROR 
Incompatible types rre not assignable. 
Incompatible types rre not assignable. 
Incompatible types rre not rssignrble. 
Type of value element does not agree with target t.yp 



■Z'C 



ERROR 



Undeclared identifier - B. 
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ARRAY CONCEPTS 

TYPE artypid = ARRAY [index type] OF type; 

• INDEX 

• HOMOGENEOUS COMPONENTS 

• MULTIDIMENSIONED ARRAYS 

• PACKING 

• INITIALIZING 

• REFERENCE 
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ARRAY TYPE 



o 



o 






1 





£ MC 





■— ' 





4 





CJ 





6 





~? 





8 





9 


n n ri ri ri i'i 


10 





11 





12 





13 





14 





15 


n n n ri ri ri 


16 





17 





18 





19 





£0 





£1 





t^c! 


ri n n n n n 


L-O 


IJ U U U IJ 


£4 





£5 





£6 


♦ERRORS 


£7 


♦ERROR* 


CO 





£9 


♦ERRORS 


3 


♦ERRORS 


31 










33 





34 





35 





36 


000000 


37 


000 000 


3ft 





39 





40 





41 





4£ MO 


E 




LINE 


SEVER I TV- 


£7 


ERROR 


o as 


WARNING 


30 


ERROR 


31 


ERROR 



£ NODULE ARRAY-TYPE 5 

TYPE 

INDEX = 1 . . 8? 

TOKENS - (flUPHflJ NUMERIC' SPECIAL? UNUSED) ? 

TYPICAL = ARRAY CI . . 103 OF INTEGER! 

memory = array [0 .. 40953 OF .. 4095? 

CODES = ARRAY [CHAR3 OF TOKENS!" 

ppus = array [1 .. 103 DF memory? 

trrns = array ['A'' .. "' Z •'' 3 OF .. £55 J 

CHARS = ARRAY ClNDEX3 OF CHAR? 

EOOL.R = PACKED RRRRY CI .. 33 OF BDOLEANJ 



= [TRUE* FALSE? FALSE3 p 

= CREP £6 OF 03 ? 

= CI" j ••■£••;. -A-!. -E-i. REP 4 OF 



VAR 

X! PPUS? 
B: BOOL A 
Y ! TRRNS 
Z! CHARS 
R_E! EOOL.ERN!i 
R_Y S I NTEGER p 
R_Z! CHAR? 

PROGRAM main? 

x C33 [40 003 : = 05 
x [40003 [33 := 15 
x[3? 400 03 := 105 

y[a3 := 15 
y[13 := 15 
r[-A-'3 := 15 

z[73 := •• + •'5 
z[83 := ••-•'; 

r_e := b[£3 5 
r_y := y[-Z-35 
r_z := z[43 5 

PRDCEND main; 
42 MOBENH array.type. 

V0. 1 770920 ERROR LISTING - arhay-typ 
78x07x26. 16:44:06. PAGE 1 
ERROR 
Constant subscript outside index type of array. 
Array references must use "'3 ["' instead of a comma. 

Undeclared identifier - fl. 

Subscript does not conform to index type of rrrry. 

31 ERROR Left prrt of assignment statement must be a variable 

OR, FUNCTION IDENTIFIER. 
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STRING CONCEPTS 



TYPE strtypeid = STRING (length); 



• REPRESENTATION 



o 



Ci 



c 2 



c 3 



c 4 



Cn 



n = length 



• SUBSTRING REFERENCE 
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STRING REFERENCE 

VAR 
S : STRING (n); 

S Refers to entire string 

S (I) Refers to the Ith character in the string 

S (I, J) Refers to the string which starts at the Ith 
character and is J characters long 

S (I, *) Refers to the string which starts at the Ith ' 
character and continues to the end of S 



o 
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Aifcw^ 



STRING REFERENCE 



MODULE STRING-TYPE? 

PROGRAM main; 
TYPE 

SIMP = STRING < 1 1 > !■ 

LIST = RRRftvCl .. SO] OF CHRRH 

C_ftR = PBCKEB RRRR'vCl .. SO] DF CHflRj 

CARD = STRING <80> J 

MESS = ARRAY!!! .. 10] OF STRING <■. 1 1 > i 



VflR 



CSTRTIC] simp := ' ELEVEN 11 

STRING 03} !> 
CHAR J 
MESS 5 



o 



xCl] := ••'l£3456789flE-'J 
x[£3 <1) := •■♦•■; 
xC3] (h 3> := -XYZ-'; 

t := s C£.i 3> 5 
xC5] <£j 3> := t; 

c : = s CI 0) 5 
s <4> := c5 

■s <::s> ♦ > := •"FOUR"; 



^^my^ 



FRDCEND main! 

MODEND STRING-TYPE. 
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RECORD CONCEPTS 

TVPE id - RECORD "<*! **vp«i. - - -HECEHD : 

♦ HOtlHOflOGEtlOUS COMPONENTS 

♦ RECORD TVPES 

- MVHRIHtlT 

- VRRIRNT 

- BOUND VRRIRNT 

- RDRPTflBLE 

♦ IHITIRLIZHTIOII 

♦ REFERENCE 

♦ PACKING 



%._,y 
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r> 



O 



RECORD TYPE 

MODULE recdrd-Type! 

PROGRAM main* 

TYPE 

credit = record 

name s str i ns < 1 co !» 
rddr: string <41} •• 
state: string <£6> ? 
incomes . . 500 00? 
rating: -'fl- . . •Z" 
cendS 



VHR 

E!S CREDIT? 



C BEGIN STATEMENTS > 
en. rating := -'Fr? 
E.NflME := " PfiSCfiL-X ••"? 

PROCEND main.? 

MODEND RECORD-TYPE? 
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o 






FIELD REFERENCE 

MDDULE RECDRD-W I TH_ ARRAY-F I ELDS ? 

. PRDGRRM main; 
TYPE 

DATE = RECORD 
DRY ! 1 . . 31? 

month: array CI .. 4] DF chrr? 
year: 19 00 .. SI 00? 
score: integer? 

RECENDj 

STRT = RECORD 

AGE" S ■ » t't'? 

MARRIED? 

sex: eddlermj 

RECENDj 

BOOK = RECORD 

NAMES STRING 03 > ? 

status: STAT? 

scores: array [1 .. 10] DF date? 

RECENDJ 

VflR 

e: book? 



e.name := •'•JHl.iJ*' ? 

E . STATUS . AGE : = 3 ? 

e. scores CI 3 . score := 9£? 



PRDCEND main? 
MQBEND. 
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BOOK 









NAME 



STATUS 



SCORES [1] 



SCORES [10] 



O 
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VARIANT RECORD 



CONST 

maxsize = 4095? 

TYPE 

SHAPE = (TRIflNGLEP FflRfiLLELaGRRM? SEUflRE) ? 
SIDE-RANGE = . . MflXSIZEJ 
ANGLE = - 130 - - 180 5 

TYPE C VARIANT RECORD > 

FIGURE = RECORD 
':■:' t 

YS SIDE-RANGE.' \^_J 

CASE si shape DF 

=TRIANGLE= 

SIDES SIDE-RANGE? 

Al? 

Ac! 5 ANGLE? 

=paralleldgram= 
skew: angle? 

Si? 

ScIS SIDE_RANGE? 
=SEUARE= 

EDGE: SIDE-RANGE? 

CASEND 

RECEND? 



O 
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VARIANT REFERENCE 



c 



10 

11 

12 
13 
14 
15 
16 



MODULE i,-'ariant_reccird_type; 

PROGRAM main! 

CONST 

MflxsiZE = 40955 

TYPE 

SHAPE = (TRIftNSLE? PARALLELOGRAM* 
SIDE_RANGE = . . MftXSIZEJ 
ANGLE = - 18 . . ISO? 

TYPE C VARIANT RECORD > 

FIGURE = RECORD 



fEUftRE.' < 



17 


Y! SIDE.RftNSEJ 


18 


CASE s: shape OF 


19 


=TRIANGLE= 


£0 


SIDE: SIDE-RANGE* 


£1 


Rli. 


lC 


Ac! 5 ANGLE? 


CO 


=PARRUL.El_nGRAM= 


£4 


skew: angle j 


£5 


Sl» 


£6 


S£: SIDE-RANGE? 


£7 


=SEUARE= 


£8 


EDGE: SIDE-RANGE J 


£9 


CRSEND 


3 


RECEND 5 


31 






'v'RR 


33 


CI? 


34 


r: figure? 


35 




36 


BEGIN 


37 


e . x : = 50 ? 


o o 


e . y : = 6 j 


39 


e.s := SEUARE? 


40 


e.edge := 50j 


41 




4£ 


R.s := triangle.' 


43 


r.side := ££? 


44 


END 


45 




46 


PROCEND main; 


47 


MODEND. 



o 
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POINTER CONCEPTS 

TYPE ptrtypeid = A type 

• POINTER TO TYPE 

• LIFETIME 

• REFERENCE/DEREFERENCE 

• ASSIGNMENT 

• APPLICATIONS 

— LINKED LIST 

— TABLE OF POINTERS 



o 



V-/ 



e 



j 
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POINTER REFERENCE 



r ! D ii U L E p g i n t e: r _.. t i v ! pe? 



PKilbRFill fir in? 



.1 f.j— • 



o 



IZOi 







":" :" " 







1 ! 


: i"*\ 


"™ 


MlR 






L™ : ^ 


L..DL 


DR 


**:" "1 




LE 


i* : L 


L"„ 


FT 



"*. i "•'. C.i.. : 



JRRNGE? MEL 



HRRRM L 

'"'lOLDR? 



! •• :- : !'"': .•-."■ I— t_ " 




l.. - •••• REjJ ! ; 




• !-• i L™ U. L_ Li iu j 








;■■• i .•: •**" ; _•; 




FT - '" - l 1 J S : ~ PRRI- 


joe: 



r •? i 



FT * : ~ NIL? 

PRDCEND nniN? 

MDBEND FD I NTER- TVPE ? 



IF CDLPRj 
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ARRAY OF POINTERS 



O 




o 



4-28 



KJ 



ar. 

I.l'l 

h 

•r 

h 
to 



111 

H 



ll 
□ 



i i 

t*""l 



o 



o 

Q. 

u. 
O 

> 
< 

cc 

< 



o 



ir. 
to 


it: »• 


K 


o ,-.. 


UJ 


u '=• 


h 


UJ OJ 


Z 


e •-• 


M 




D 


Q «Ii 


LL 


LU Z 


1 


Jxl* w 


LL 


o a: 


□ 


«r h 



I 

>r 
a: 

»r 

LU 

Q 
□ 



CL to 



«r 

LU 

J 

r. a 

p a 

UJ A 



■■ 



to 

h 



uj •• a: »■ q 
r uj o: x z 

'I H' c UJ UJ 



■r z «r r to u 



LU h 
LL Ml 



UJ 



■r 

£ 

<r 



«r 

CL 
CL 

»r 
i 

CL 
UJ 

h 
z 

M 

D 

LL H 

«r 



■ r. 

Q 
LU 
□ 



4-29 



LINK-LIST 



O 




o 
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POINTER EXAMPLE 



o 



o 



MODULE i_ink_l.ist; 



V C' [T 






LINK : " ""■ 


REC J 




REC = RE 


1ZDRI 


i 


'v'RLUE 5 


INI 


"EGER? 


FTR : L 


I NK 




REEEND 5 







URR 

FIRST' link:= f 

PRDGRflM pirin? 
UflR 

ELEMENTS REC? 
POINTERS LINK? 



-C Link elepient id the top 

-C DF THE LIST > 



POINTER != •"•ELEPIENT? 

PDIHTER'"\URLUE » = 35 
POINTER-'" - , PTR != FIRST? 
F I RST ! = PD I NTER ? 

-C Dereference the pointer? i.e. 

-C REFERENCE THE LINKED RECORD . 

ELERENT S = FIRST - '"-? 
F I RST"'"' =, MRLUE S " 6 ? 
PRDCENIi P1RIN? 
MDDEND LINK_LIST? 
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o 

REFERENCE 

• POINTERS 

:=ptrA 
ptr A := 
:=A variable 

• ARRAY 

arr [index]:= 

arr [index.,] [index 2 ]:= 

• STRING 

str:= 

str (start) := 

str (start, length):= 

str (start, *):= 

• RECORD 

rec:= 
rec. field:= 



set:= O 
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STATEMENTS 
AND 
O OPERATORS 



O 
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o 

OPERATOR PRECEDENCE 



• NOT 

• MULTIPLYING 

*,/ 

DIV , MOD 

AND 

• SIGN OPERATORS 

+ ,- 

• ADDING 

+ ,- 

OR 

XOR 

• RELATIONAL 
<,< = 

>» > = 

= ,<> 

IN 
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MULTIPLYING OPERATORS 



O 



j^OPERATORj OPERATION \ OPERANDS \ RESlJff 1 


■ * 


1 multiplication 


! INTEGER 
REAL, LONGREAL 


INTEGER ! 
REAL, LONGREAL J 


1 ™ 
| set intersection 


SET' 


SET j 


j DIV 

1 f \ 


integer quotient 
real quotient 


INTEGER 

REAL, LONGREAL 

_, i 


INTEGER j 

REAL, LONGREAL I 

i i 


j MOD ] 


remainder function] 


INTEGER 


INTEGER ! 


1 AND ! 


logical "and" ) 

J 


_ | 
BOOLEAN i 


BOOLEAN j 



o 
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MULTIPLYING 



MODULE EXPRESSIONS? 



o 



VAR 



X i 


INTEGER S = 1" p 


Y ! 


INTEGER := £.1 


Z! 


INTEGER? 


Bl 


: boolean := TRUE? 


E£! 


: boolean := FALSE* 


b3: 


! BOOLEAN.* 


X X ! 


: real : = 7- Op 


YY! 


: real : = £. Op 


77! 

4— .*_ ■ 


! REAL? 



w 



PROGRAM main? 

MULTIPLYING OPERATORS > 
= x ♦ yp { 14 ) 
= x DIV yp { 3 ) 
= x MOD yp -C 1 > 
:= xx ♦ yyp -C 14.0 



T P 



.1 



b3 := b1 AND b£p -C FALSE 
b3 := Bl AND bIp C TRUE > 



PROCEND mainp 
MDDEND expressions 



O 
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ADDING OPERATORS 



O 



| OPERATOR 


opIratTons T OPERANDI 


! RESULT 1 


1 + 


..... 'INTEGER 
addition 

JREAL,LONGREAL 


1 * 

INTEGER 

REAL, LONGREAL 




set union 


SET 


SET 


1 


subtraction 


INTEGER 

REAL, LONGREAL 


INTEGER 

REAL, LONGREAL 


• 


boolean difference 


BOOLEAN 

| 


BOOLEAN 




set difference 


SET 




SET j 


J OR 


logical "or" 


1 

BOOLEAN I 


| j 

BOOLEAN j 


j XOR I 

L ! 


exclusive "or" 


BOOLEAN 


BOOLEAN j 

1 
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• r- 



ADDING 



MDDULE EXPRESS I DNS 5 






II 



■/AR 



X 



INTEGER := 7* 
INTEGER := £•- 
INTEGER 9 



El 
B£ 
B3 
B4 



BDDLEflN := 
BDDLERN := 
BDDLEflN 9 
BDDLEflN ; 



TRUE 5 
FALSE;. 



PROGRAM MAIN; 

•C ADDING DPERflTDRS 

Z := X + y; 



v.. 



Z := x - y; 




B3 == El - B£5 


•CTRUE 3 


E3 := B£ - B15 


CFALSE> 


B4 := El DR Bi; 


•CTRUE > 


E4 := B£ DR BE*; 


CFALSE> 



PRDCEND MAIN; 



NDDEND EXPRESSIONS 
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o 



RELATIONAL OPERATORS 






! j | LEFT j RIGHT j j 
! OPERATORJOPERATION \ OPERAND 1 OPERAND j RESULT I 

1 < j - less than j SCALAR j SCALAR , BOOLEAN j 

1 <= | - less than or j j 1 ! 
j I equal to 1 i | | 

, > j - greater than STRING (n) 1 STRING (n) j BOOLEAN 1 

I >= j - greater than j S(k) 1 CHAR j BOOLEAN 1 
j 1 or equal to | CHAR j S(k) 1 BOOLEAN j 

j = 1 - equal to I j 1 J 

! <> I - not equal to 1 1 

j 1 1 j j _, _j 

j IN I set membership ! SCALAR j SET 1 BOOLEAN j 

| = j- identity j SET I SET j BOOLEAN I 
1 <> |- different i j j j 
j <= j- is contained in j 1 J \ 
1 >= |- contains j ! I ! 


1 = | - equal to j 1 j 1 
j<> j- not equal to [RECORD j RECORD 1 BOOLEAN J 

1 l! POINTER 1 POINTER j BOOLEAN 1 



o 
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RELATIONAL O 



MODULE EXPRESS I DNS ; 
VRR 



X 

■ i 



: INTEGER := ?t 
(• : INTEGER := £» 

E3 : BOOLEAN t 
B4 : BOOLEAN * 

CH : CHAR := 'M'j 

S_ : STRING <3> := 'LMN'» 

P : A STRING<3>» 

PROGRAM MAIN; 

•C RELATIONAL OPERATORS > 
B3 := K <= Y; CFALSEJ- 

B3 := CH = -"M-'J CTRUE > 

E4 := CH <> S_ •:.'£>; CFALSE} 
B 4 : = S _ < 3 > > •- A -' J C T R U E > 

B3 := P = NIL; CTRUE > 

PRDCEND MAIN? 

MODEND EXPRESS I ONS 



o 
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/""Y 



LU 

»r 



o 



o 













■tf 


,-'-, 
















in 


i~i 


m ' m 


LU 












«-.-• 


i-H 


ii 
LU 




CO 










■ ■»• 


'-.-' 




LL 


z 














1 1 

«• m 


ii 


o 










cu 


■ ■». 

in 




cu 


^■a 










+ 






£m 


CO 


















CO 

111 










^•*« 






Q 


oc 












••*"•. 


ir. 


Z! 


Q. 










♦ 


"• — . 




»r 


X 










.■""■. 


♦ 




..-.. 


HI 










CO 

1 


+ 


□ 


-j 








■■*. 




J— 


.•""•• 


«•■"■ 


ii 






ar. 


LU 






X 


II 








LU 


C-i 


■ r. 


+ 


♦ 


V 


X 






_J 


-J 


"•. 




"v" 




o 






Qi 


•r 


m 


X 




x 






■ r. 


■ r. h~ 


u. 


\ 




'._.• 


• -— ■" 


'. — .• 




r- 


cu 






■ w ' 


••-•• 










1! 


ii 


II 






II 


II 




n 








il 


II 


■ ■ 


■ ■ 




■■ 


■i 






■ ■ 


■ • 










i— • 


cu X 






CO 


rf 




":.;- 


> CQ 


« 


o 


N 


N 


« 


£Q 
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OPERATIONS ON SETS 



O 



MODULE SET- ASSIGNMENT? 
PROGRAM MAIN.! 



TYPE 


- 




E = SET OF . . 55 




VflR 






SETA: 


Bi. 




SETE: 


B> 




SETC: 


B» 




EDO: BOOLEAN* 




THREE: 


[STATIC] INTEGER := 3? 




C OPERATIONS ON SETS > 




SETE : 


:= SB CO;. li.£3 ; 


CO* 1 ;.£::• 


SETC : 


:= SETE + SB CO.- 1 9 43 ; 


CO? 1?£?4> 


SETA : 


:= SETB ♦ SETC; 


CO j 1 j£> 


BOO : 


:= 5 IN SETA; 


CFALSEU- 


BOO : 


5= SETA = SETC? 


CFALSE> . 


BOD : 


:= SETA <> SETC? 


CTRUE> 


BOO : 


i= SETA <= SETC 3 


CTRUEJ- 


BOO : 


:= SETA >= SETC5 


CFALSE> 


SETE : 


:= SETC - SETA? 


I4> 


SETE : 


:= SETA - SETC5 


« -* 


SETE : 


t= -seta; 


I3>4»5> 


SETE : 


: = -SB [3 ? 


:full> 


SETA : 


' = SETA + SB CTHREE3 ; ■ 


."0? 1 .1 £? 3> 


PROCEND MA; 


em; 




MODENn SET. 


.ASSIGNMENT. 
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o 



o 



STRUCTURED STATEMENTS 

• SEQUENTIAL 
BEGIN 

• REPETITIVE 
WHILE 
REPEAT 
FOR 

• STRUCTURED STATEMENTS 
MAY HAVE LABELS 
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^***^Jr 



BEGIN STATEMENT 



• USED TO GROUP STATEMENTS 



• MAY HAVE A LABEL 



BEGIN 



statement 
list 



END 



o 
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WHILE STATEMENT 



O 









false 


WHILE 
DO 






true 


\ 




statement 
list 
















^ 


WHILEND 

r 



o 
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WHILE 



MODULE WHILE.STRTEMENTi 

PROGRAM main; 



VfiR 

IS INTEGER* 



r: array CO .. 999] DF eddlean? 



i == o; 

WHILE aCi] = TRUE DD 
i := i + 15 

wm lends 

PRDCEND main! 

MODEND WHILE-STATEMENT. 



v_ 



NOTE: A has not been initialized. 



O 
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^Ufapir 



REPEAT STATEMENT 



O 



REPEAT 



false 




UNTIL 



o 
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o 



REPEAT 

MDDULE REPEftT.STRTEMENT ? 

PRDGRflM MfliNi 

VflR 

xs integer? 
ys integer? 

str : STR I NG < 1 CO 5 

x := o; ( 

y := OS 

REPEAT 

x := x .+ 1 5 
y := y + e; 

UNTIL str <x> <> -' ■-; 

PRDCEND MftiNf 
MDDEND repert_strtement. 



NOTE: STR has not been initialized. 

O 
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FOR STATEMENT 



O 



o 



FOR 



TEMP:=initial 
value 



LIMIT:=final 
value 



control 

variables 

TEMP 



statement 
list 



TEMP:= 
succ or pred 
of TEMP 




false 



FOREND 
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FOR (integer) 

MODULE fdr_statement? 
PROGRAM main? 
CONST 

INITIAL = 1 !• 
FINAL = 10 5} 

VAR 

ws integer? 

rs array [initial. .. final.] of integer? 

for n s= initial. to final. do 
aCw] s= 05 

forend; 

PROCEND main? 

MODEND FdR_STATEMENT. 



O 
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^k^Mi* 



^^Jr 



o 



FOR (character) 

MODULE FDR-STftTEMENT_£5 

PROGRAM mains 

•C COUNT CHARACTERS DOWN > 
VAR 

W5 CHflRj 

r: rrrryC'A"' .. "Z\3 OF integer? 

FDR m := -Z-" DOWNTO 'M' DO 

rCw] := o; 
FOREND? 

prdcend; 

MODEND 
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o 

FOR (ordinal) 



MODULE FDR-STATEMENT-S? 

PROGRRM main! 

•C ORDINAL COUNTING > 
TYPE 

GRAIN = (WHEflTJ RYE? DfiTS? BARLEY) ? 

VflR 

WS GRAIN? 

IS INTEGER? /^ 

AS ARRAY CGRA IN] OF INTEGER? V> 

I..' 5 ARRAY CO .. 3] OF INTEGER? 

I = = ? 

FOR m == wheat TO barley DO 

aCw3 := aCw3 + i.-'Ci3 ? 

i := i + 1? 
FOREND? 

PROCEND main? 

MODEND FDR_STATEMENT_3. 



NOTE: A and V have not been initialized. 



O 
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o 



o 



o 



CONTROL STATEMENTS 



IF 



• CASE 



• CYCLE 



• EXIT 



Procedure Call 



RETURN 
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IF STATEMENT 



O 



ELSE1F 




ELSEIF 



V 



IFEND 



o 
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^tfcuaj' 



IF 



MF1DULE I F_STRTEP1ENT 



PROGRAM fir in? 



o 



i ii~tr-i 
>,.»r jr. 








in a 








B » 


[ i 


• 1 T 


EGER J 


T F ra 

.;. t t r 






i nfcJ i 


R ! 


:~. 


T: 


:; 


T r~ r~ K ! T: ■ 






T r~ 

.1. r i-i 


■:' :: 


n 


5 THEN 


""• :: 


::~ 


i 


if 


ILSEI 


F 


R 


'> y, n t 



HEN 



ELSE 



FEND? 
PRDCEND rrin? 

MDDEND IF-STRTEPIENT? 



NOTE: A AND B have not been initialized. 
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CASE STATEMENT 








CASE variable OF 




o 


yes 


=a= 
list 
















o 


yes 


=b= 
list 










» 
» 






<^> 


yes 


=n= 
list 










ELSE 








else 
list 










' 


r CASEI 


MD 







v.. 
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o 



CASE (integer) 



MDDULE CftSE_STl=ITEMENTJ 



PRDGRftM MftiNj 



o 



^^^ 



VflR 




xs 


. . 5.* 


Y S 


INTEGER 5 


x s = 


35 


CASE 


x DF 


= u = 




Y I 


:= 995 


= 1 = 




y : 


■ 



=4= 

Y 

=5= 

Y 



= X ♦ 

= 2. ♦ 



= 05 
CRSEND5 



35 



+ 2 ♦ x + 95 



PRDCEND main? 

MDDEND CASE-STATEMENT 5 
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CASE (ordinal) O 



MODULE CRSE-STRTEMENT 5 

PROGRAM main; 
TYPE 

CDLDR = (RED? YEL-!» BLU.' GRN> 5 



VfiR 

NS INTEGER!! 

E»S CDLDR? 

c? := blu! 

CASE & OF 

=RED = 

n := 995 

=GRN = 

n := 665 

=BLU = 

n := - 995 
CBSEND5 
PROCEND mbin5 

MOHENH CftSE«STRTEMEh4T5 



\_y 
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O CASE (subrange) 



O 



^Ijyu^r 



MODULE crse.strtement! 
PROGRAM mrinS 
VflR 

ZS INTEGER* 

15 integer! 

z : = 5 

CASE z DF 

=1 .. 10= 
x := 99; 

=11 . . 100= 
1 := zS 

= - 100 . . - 1 = 

» — 21 + Z ? 

ELSE 

1 := £ * z + 3! 
CRSEND5 

PRDCENB mrin? 

MDHEND CflSE-STRTEMENT J 
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CYCLE STATEMENT 



O 



■/label/ 

start repetitive statement 



CYCLE/label/ 



end repetitive statement. 



• USED WITHIN REPETITIVE STATEMENT: 

FOR 

REPEAT 

WHILE 

• CYCLE TO NEXT ITERATION, IF ANY 

• CYCLE STATEMENT MUST BE IN 
SCOPE OF /label/ 



v> 
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o 



CYCLE 



MODULE CYCLE.STRTEMENT 5 



PRDbRRM mrin! 



O 



VflR 
i 
j" 

R 



INTEGER? 

[STATIC] 

ARRflY CI 



INTEGER S= 100 0* 
. 10] DF INTEGER? 



LDDPl-- 
FDR i := 1 TD 10 DD 

j := j + i ; 

IF i = 3 THEN 
CYCLE /lddpI/ 5 

i fend; 

rCi] := rCi] + ji 
FDREND /lddpI/5 



^^jir 



PRDCEND mr in? 

MDDEND CYCLE-STATEMENT. 
NOTE: A has not been initialized. 
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EXIT STATEMENT 



EXIT /label/ 

• Used within a structured statement 
BEGIN 

FOR 

REPEAT 

WHILE 

• Exits to following statement 

• Exit statement must be in the scope of the 
/label/ 



o 



i 



EXIT name 

• Used to exit a statically encompassing 
PROCEDURE 

FUNCTION 

• Exits to the successor of the named procedure 
or function 
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o 



^h^.jy 



^^IgJF 



EXIT 



MODULE EX I T-STftTEMENT. 1 5 

PROGRAM main; 

VflR 
In 

key: integer? 

a: array CI .. 103 OF integer* 

KEY-FOUNDS BOOLEAN? 
KEY != 75 

FOR I := 1 TO 10 DO 

ACl] S= KEY 5 
KEY ! = KEY - 1 5 

forend; 
i := i; 

key := 4J 

. -'L2 0s 
REPEAT 

IF key = nCiD THEN 
EXIT .•••l.200.-- ; 

i fend; 

i := i + 15 
UNTIL i > 105 

IF i <= 10 THEN 

KEY-FOUND != TRUE; 

ELSE 

key_fdund : = FALSE 5 

I fend; 

PROCEND main5 

MODEND EXIT_STATEMENT_15 
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o 






o 



o 



6 



PROCEDURES 



O 



O 
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o 

PROCEDURES 



DEFINITION 

PROGRAM name (params); 
PROCEDURE name (params); 
FUNCTION name (params):resulL_type; 

CALL 

Name (actual parameters); 

PARAMETERS N 

Read-Only 

Read-Write (VAR) 



• ATTRIBUTES 

PROCEDURE [attribute] name (params); 

• POINTER TO PROCEDURE 
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o 






o 



GLOBAL VARIABLES 

MODULE GLDBfiL_PfiRftMS? 

vrr i »Jpk: integer; 

PROCEDURE RDDJ 
K := I + J} 

PROCENB RDDJ 

PROCEDURE SUB.! 
K := I - j; 

PROCEND SUE; 
PROGRAM MAIM; 

I := s; 
J := ?; 

IF KJ THEN HDD 
ELSE SUB 

i fend; 

PROCEND MAIN; 
MODEND GLOBfiL.PRRfiMS. 
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LU 
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o 



^tm. r 
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Q 
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O 


O 


r- 
V) 
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O 


LU 
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O 
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PARAMETERS 



O 



1 MODULE parameters; 

2 

3 PROCEDURE count CVflR n_of_char: .. 805 

4 string_to_search: string (80> j 

5 first_ch: 1 .. 80j 

6 search_i_ength: 1 .. 80* 

7 SEARCH_CH! chah) 5 

8 

1 1 9 VflR 

11 10 i: 1 .. 80j 

11 11 

11 12 N_DF_CHfiR := OS 

25 13 FOR I '■= FIRST_CH TD FIRST.CH + SEARCH-LENGTH - 1 DO 

33 14 IF STRING_TO_SEARCH (.!> <> SEARCH-CH THEN 

46 15 N_OF_CHAR := N_DF_CHAR + IS 

52 16 ELSE 

54 17 RETURNS 

55 18 I FENDS 

55 19 forend; 

55 20 

57 21 PRDCEND count S 

57 22 

57 23 PROGRAM main; 

57 24 

61 25 VflR 

61 26 cards string (8 0) j 

61 27 i j 

61 28 j: 1 . . 80* 

61 29 k: .. 80» 

61 30 ch! char* 

61 31 

61 32 -C ASSUME THAT THE CARD <8 CHARACTERS) > 

61 33 £ HAS BEEN READ INTO THE VARIABLE CARD > 

61 34 

61 35 count (k* card? 1 f 80» •' + •">; 

61 36 

61 37 

61 38 

72 39 i := 14S 

73 40 j := 3; 

74 41 . ch := ' '; 

75 42 count t.Kt cardj if j- j ch) ; 
101 43 PRDCEND main; 

101 44 MODEND parameters? 



v.y 



o 
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o 






o 



FUNCTIONS 

STRUCTURE: 

FUNCTION name (params): result-type; 

{declarations} 

{statements} 

name:= 
FUNCEND name; 

SIDE EFFECTS: 

• Illegal Assignments 
Nonlocal variables 
Read/write Parameters 
Pointer Variables 

• Illegal Contents 
User_defined procedure calls 
Nonlocal variables to standard procs 
Procedures as parameters 
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FUNCTION CALL 



flDDULE use__funct i on ? 
FUNCTION sun (x? 

¥••! INTEGER) S INTEGER? 

sum := x + m; 
FUNCEND sun? 

PROGRAM CRL.L.ER? 

URR 

R : = 

B" INTEGER? 



PI := in 



« '. 



sun <n? b> >= THEM 



I FEND" 
PRDCEND CRLLER? 
MDDEND USE-FUNCTION? 






o 
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o 



^^^(r 



NESTED PROCEDURES 



MODULE NESTED_PRDCS; 

PROCEDURE COMPUTE; — + 

VAR 



PROCEDURE TEST; — + 
VflR ! 

c statements j ! 
procend test; — + 

c statements > 
procend compute; — + 

program main; — + 

•c declarations > 
<. statements > 

compute; 

•c statements > 
procend main; 
modend mested-prdcs ; 
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o 



RECURSIVE FUNCTION 



MODULE RECURS I ME-FUHCT I QN 5 
FUNCTION FRET <F)" integer) 

-C Recursive frctdrirl > 
-C N! = N*<N-1> ! > 



INTEGER? 



l r n > 

FRET 



THEN 

R s FRET 



FRET 5 = 1 

i fend; 

FUNCEND fret? 
PROGRAM fir in? 



«:.n 



v 



UAR 

N ? 



MRLUE! INTEGER? 



n ;= 4? 

IF n >= THEN 

','RL.UE " ~ FRET <N> ? 

I FEND? 
. PROCEND rrin? 
MODEND reeurs i ve-funct i dn 5 
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O RECURSIVE PROCEDURE 



MDUULE RECURS I ME-PROC ? 

PROCEDURE itgs -C integer td string 

<N : I NTEGER ■ 

URR S? STRING <£0> 5 

UflR i:0.. £0> ; 



^ll»*^ 



o 



UflR 






n s i n 


TEGER "■ 


T 2 ~ |j: 






IF N >= 





THEM 


m ; = 




N? . 




ELSE 






.-• -i \ 


n ,«. 


= ™ q » 


it: a — • 


-" j\ 


" 


— • 3 M*. 


.: fi 




I FEND 5 






IF rn !>~ 


1 !" 


THEN 


r Tn- 


<P1 


DIU 10- 


I FEND 5 







T H- 



s (I) :=* SCHRR (m MOD \Z + SINTEGER ('2f')J; 
PRDCEND itds? 

PROGRAM crller? 



i 


*fiR 














N. 


-CHARS 


= . 


£ ? 






is- 


"R' « 


STF 


INC 


<£0> 


J 




Nun' 


I NT 


EGER : 


! 




!■■ 


sun 


a — 




s 







ITDS (NUn? STF: 5 N_CHRR> 5 
PRDCEND CRLLER j 

MDDEND recurs i ue-frpe ? 
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o 

PROCEDURE ATTRIBUTES 

MODULE FIRST; 

PROCEDURE CXREFD COMPUTE; 

PROGRAM MAIN; 

■ 

compute; 

■ 

procemd mr in; q 

modend first; 



module second; 
procedure cxdcl3 compute; 

■ 
PROCEND COMPUTE; 
MODEND SECOND; O 
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o 



o 



o 



PROCEDURE POINTERS 



• ALLOWS CALLS TO PROCEDURES BY 
POINTER (proc-ptrA;) 

• CAN BE PASSED AS PARAMETERS 

• POINTS TO OUTER LEVEL PROCEDURES 
ONLY 

• INITIALIZATION 

WITHIN PROGRAM (A name) 
OPERATING SYSTEM CALLS (future) 
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POINTERS TO PROCEDURES 

MODULE PD I NTER-TD-FRDCEIiURE 5 

PROCEDURE CXREF3 error <p: a prdcedure> ! 

PROCEDURE CXREF3 ft; 

PROCEDURE CXREF3 b? 

PROCEDURE CXREF3 c5 

PROGRAM m? 

TYPE 

p = array El . . 33 OF ■"PROCEDURE; 

vrr r") 

i: 1 .. 3j» w 

JUMP-TABLES P? 

C INITIALIZE TABLE > 



JUMP-TABLE CI] 
JUMP-TABLE C£l 
JUMP-TABLE C33 



= ••'••b; 



■C REFERENCE THE TABLE > 
i s= £5 

JUMP-TABLE C I 3 "*'• ? 

ERROR < JUMP-TABLE C I 3 > ? 

PROCEND m; 
MODEND 



O 
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o 



^(j^^uijjlr 



POINTER TO PROCEDURE 



MODULE show: 

VflR 

ppqcptr: a phdcedure <.*> 
e! integer.:' 5 

PROCEDURE CXREF3 testI (xi/alj 

WflL! INTEGER- 1 J 

PROCEDURE CKREF] test£ Otr: "procedure (cj ds integer.:' j 

Mil 

n: integer^ ' 



PROGRAM 


MAIN? 


VftR 




mnI ? 




mn£: 


INTEGER? 


MNl ! = 


50? 


MNc! s = 


75; 



f-roc_ptr := ''-testIj 



PRQC-F-TR"'" OlNl* MNc!> ? 
TESTi ( a TE5T1j MNIj Mn£) 

PROCEND main? 
MO DEN D show; 
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w 







7 



STANDARD 
PROCEDURES 



O 
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CONVERSION 



^taauJT 



succ (» 

PRED <K> 
*CHRR (K) 



*RERL M 



•LQIIGREflL <» 



*ItlTEGER (K) 



Returns the successor of X 

Returns the predecessor of X 

Returns the character represented 
by integer ft 

Returns real representation of the 
integer or longreal }{ . 

Returns longreal representation 
of the integer or real ){ m 

Returns the integer representation 
of a scalar, real or longreal \\ m 



V_> 
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o 



x^/ 



o 



o 



ORDINAL CONVERSION 

MODULE DRD-CnNi/'ERSIDNil 

PROGRAM MftiN; 

•C ORDINAL COUNTING > 
TYPE 

SRflIN = <WHERT!» RYE? DftTS? ' BRRLEY) 5 



VAR 
w 

i 

Ft 
1-* 



SRfllNJ 

INTEGER? 

RRRRYCsRRIN3 OF INTEGER? 

RRRRYCO .. 3] OF INTEGER? 



FOR n := whert TO brrley DO 

fi [W] : » A M + V [SINTEGER (UD ] ; 

fdrend? 

PROCEND MftiN? 

MODEND nRD_CDN»/ERSIDN. 



Note: A & V have not been initialized 
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STRiNGIREP 



^™-i^ 



STRINGREP(s, l, P1 , p 2 Pn ) 



s = result string 
I = result length 
Pi = concatenation element 



TYPE 



RESULT 



integer 

ordinal 

subrange 

character 

boolean 

string 

pointer 

-reai'/WpMG'Pf 



Pi SPECIFICATION DEFAULT 



JUSTIFY 



& nn...(r) 

£ nn...(r) 

* nn...(r) 

c 

h TRUE,FALSE 

wCiii 

£ n.nn...E±nnn 



•fealfotntfrfr f> n.nn...D±yw\^ 
(3) machine dependent 



exp:length:#(radix) 

exp:length:#( radix) 

exp:iength:#(radix) 

exp:length 

exp:length 

exp:length 

exp:length 

exp:iength ^^ 

exp:lengthgselifi 

exp; leY\ : farter- 



val:n+1:#(10) 
val:n+1:#(10) 
val:n+1:#(10) 
val:1 
val:5 
val:n 

val:n:#(r) ® 
val:n+4 (j) 

val:n«6a+4 



R 
R 
R 

L 
L 
L 
R 
R 
R 
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STRINGREP EXAMPLE-1 



^Bw.*^ 



SOURCE 



MODULE see; 

'"'? SET ClIST := OFF> 

♦CflLLC PXIDTYP 
♦CflLLC LGZOPEN 

♦crllc lgzclos 
♦callc lszput 
♦callc ls2set 
?? RESET ?? 



o 



TYPE 

COLOR = (RED* ORflNSE) YELLDWli SREENl BLUE.J 5 

a_m_alfha = "A" .. •'M-'j 

M-flRRAY = ARRAY [1 .. 10] QF STRINS CIO.:'? 

VAR 

OUT ? 

INN! FILE.' 

length: integer? 
initial: integer := 1* 
final! integer != 10? 
controi loop! integer. != 1? 

INT_i.-"AL! INTEGER? 

hex_i,-"al: integer := - 0a3C16>? 
flqat_pt_i/al! real) 

FIXED_PT_l..-'AL! REAL J 

MESSAGE! M_ARRAY? 

BIG — MESSAGE" STRING C8 0.J ? 

CHflR_l/flL' CHAR != 'T'"? 

SUBRANGE-l/AL! A_M_ALPHA != ' D ' ? 

Baai — i..'al! boolean := TRUE? 
COLOR-'.-'AL! color? 



PROGRAM main? 



LG"OPEN Couth -'OUTPUT'? old") qutputs? 
lG"Put (dutj "START OF JOB OS 



as IS".: 1 ? 



float_pt_i--al := 1.23.45b? 

FIXED_PT_iyAL != - 12.3456? 
INT.i/flL != £5? 
COLOR_l.-*AL != ORANGE? 

CONVERT TO STRING REPRESENTATION > 



o 



TRINGREP 


(message 


CI] j 


LENGTH? 


TRINGREP 


(message 


1—1 

'"■J 


LENGTHS 


TRINGREP 


(message 


C3] j 


LENGTH? 


TRINGREP 


(message 


C4] ? 


LENGTH? 


TRINGREP 


(message 


C5] ? 


LENGTH? 


TRINGREP 


(message 


C6]? 


LENGTH? 


TRINGREP 


(message 


C7] j 


LENGTH? 


TRINGREP 


(message 


C3] i. 


LENGTH? 


TRINGREP 


(message 


[9], 


LENGTH? 


TRINGREP 


(message 


CIO] 


i LENGTH 



i nt_!.-'al : 10: a ( l s> '? ? 

HEX_t-"AL> ? 

hex_l-'al : 10: it ( 1 6.:' > ? 

CHAR_l-'AL.> ? 
SUBRANGE_I.-'Al;' ? 
BOOI ly'AL.:' ? 

float_pt_i./al: 1 0> ? 

FIXED.PT.yAL! 8! 3.J ? 
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STRINGREP EXAMPLE-2 

■:: OUTPUT THE STRINGS SEPARATELY > V-/ 

lssput (dutj -STRINGS OUTPUTTED SEPARATELY -> J 

FDR CDNTRQI LDDP J= INITIAL TO FINAL DD 

LSttPUT (QUTj MESSftSE CCONTROI LDQP] > 5 

forend; 
•c convert and concatenate > 

STRINGREP (eis-messase) length > int-i/alj intj/'AlJ 10: s(16)j hex.wl 
hex_i/fil: 10! sf:;i6>!i char_i/al> sufRftNGE-iyflLj Baoi i/alj flqat_pt 

_i.-'RL : 

10? FixED_PT_iy'«L: 8: 3i> colqr-val; 1 ? 
•C OUTPUT. THE CONCATENATED STRING > 

ls«put CauTi. -CONCATENATED STRING OUTPUTTED-';' > 

LS«PUT (QUTj BIG_MESSAGE.:' ! 

lg«put CauTu "END OF JOB-':'? 

LS«CLDSE (DUT» FiSIS") 5 

PROCEND main; 
MOD END see. f~\ 

OUTPUT 

•••SES.GENCOMP SF=TEST4 CYECCMN 

♦ GENERATING COMPILE FILE COMPILE 

♦ END.GENCOMP COMPILE <- EASE 
■"SES.CYBiL CC 

♦ COMPILING COMPILE 

♦ END CYBIL COMPILE -> LISTING* LGO 
•-SES. LINK 170 CYBCLIB 

♦ " END LINK 170 LGOB 
■■•■LGOB 

START OF JOB 

STRINGS OUTPUTTED SEPARATELY 

19 
-163 

-A3 

T 

TRUE 
l.£E+00£ 

— 1£. 346 

1 
CONCATENATED STRING OUTPUTTED 

£5 19-163 -AST 68 TRUE l.£E+00£ -1£.346 1 S~\. 

END OF JOB I | 

LGOB. V^/ 
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o 



o 



DETERMINE LIMITS 

UPPERVALUE (X) 

Returns the largest value of a scalar variable or 

type 

LOWERVALUE (X) 

Returns the smallest value of a scalar variable or 

type 

EXAMPLE: 

FDR m := UPPER'v'fiUJE <sr«n? DQUMTa LOWER VALUE (grain;' DQ 

■ 

FQREMD5 
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o 

ADAPTABLE TYPES 

• Size is unknown at Compile time 

• Size is determined at execution time 

• Used as parameters 
STRING (*) 
ARRAY [*] OF type 
RECORD 



Allocated £ 

STRING 

ARRAY 

RECORD 

BOUND VARIANT RECORD 

HEAP 

SEQUENCE 
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SIZE DETERMINATION 
FUNCTIONS 

• STRLENGTH (X) 

Returns the length of the string X 

• UPPERBOUND (X) 

Returns the highest value of an array index 

• LOWERBOUND (X) 

Returns the lowest value of an array index 
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ADAPTABLE ARRAY Q 

MODULE ex l; 
TYPE 

■adaptarrav = array C*3 OF integer? 
PROCEDURE <s«iuarej.it- WAR data : adaptarrav)? 
VAR 

index s 'inteser? 

•FOR index := LOWERBOUND< data) TO UPPERBOUND(data) DO 

dataEindexl «= dataCindex3 * dataEindex3? 
FOREND? 
PROCEND SRuare_it; 

PROGRAM main? 

VAR 

vector! : ARRAYC-25 .. 503 OF integer, 
vector-2 : ARRAYC1 ..1003 OF integer! 

< FILL ARRAYS WITH VALUES > 
s«iuare_it < vectorl ) * 

square-it (vector2) ! 



v_y 



PROCEND 'main I 
MODEND ext» 
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o 



o 







O 



O WTA&E *&m Q 

TYPE 

AREC - RECORD 

X - INTEGER 

Y - STRINGC) 
RECEND; 



PROCEDURE BLANKCOUNTUNREC : AREC; VAR NBLANKS : INTEGER); 
VAR POSITION : INTEGER; 
NBLANKS := 0; 

FOR POSITION :- 1 TO STRLEN6THCINREC.Y) DO 

IF INREC.Y(POSITION) - • • THEN 

NBLANKS :» NBLANKS * 1; 
I FEND; 



X ^.jp 



FOREND; 



PROCEND BLANKCOUNT; 

PROGRAM CALLER; 
VAR 

R : RECORD 

S : INTE6ER 
T : STRINGUO) 
RECEND, 
COUNT : INTEGER; 
R.T : « "123 56 890*; q 

BLANKCOUNKR, COUNT); 

PROCEND CALLER; 



o 



o 



ADAPTABLE STRING 



MODULE RDRFTflELE-STR I NG 5 

TYPE 

RSTRIN6 = STRING < ♦ > 5 

PROCEDURE BLfiNK_cnuNT (in.str: astringJ 

VflR NBLRNKSS INTEGER) 5 

VflR 

POSITIONS INTEGER? 

NELRNKS S = 5 

FDR position := 1 TO STRLEMGTH (in.str) DO 
IF in-Str (pdsitidn) = " •" THEM 

NBLANKS " = NBLRNKS + 1 9 

I FENDS 
FOREMD? 

PROCEMD BLflNK-CDUNT 5 

PROGRAM caller; 
VflR 

S! STRING <1 0) !» 
L.2 INTEGER? 

s := 'flE CD EF G'5 

BLANK-COUNT <S? L> 9 

PROCEMD caller; 

MODEMD RBRPTRBLE-STRING? 
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STORAGE ALLOCATION 

• STACK (system) 

• HEAP (system & user) 

• SEQUENCE (user) 

• ADAPTABLE STORAGE 
HEAP 

SEQUENCE 

ARRAY 

STRING 

RECORD 

BOUND VARIANT RECORD 
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MEMORY ORGANIZATION 

(CYBER 170) 



o 



o 



RA 


Communication Area 




RA+111 


CYBIL 
Program 






Run Time 
Routines 






STACK (system) 


i 




HEAP (system) 


7 









RA+FL 



/ 



f 




\ 







if 
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STORAGE ALLOCATION 

(SYSTEM HEAP) 



o 



ALLOCATE P; 



ALLOCATE P:[length]; 



ALLOCATE P:[low..high]; 



ALLOCATE P:[ti f ...,t n ]; 



FREE P: 



Allocates space 
for T; returns 
pointer P. 

Allocates space 
for an adaptable 
string; returns 
pointer. 

Allocates space 
for an adaptable 
array; returns 
pointer. 

Allocates space 
for a bound 
variant record; 
returns pointer. 

Frees the space 
pointed to by P; 
sets P to nil. 



NOTE: P is a pointer to type T. 

If space cannot be allocated, P:=NIL. 



V.„ 



o 
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V-^ 



LINKED LIST 






o 



MODULE LINK.LIST? 

TYPE 

link = a rec) 
rec = record 

u'ruue: integer? 

ptr: link 
recend! 

VfiR 

first: link := NIL.? 

PROGRAM mrin? 

VfiR 

is 1 .. 10» 

POINTERS LINK J 

FDR I := 1 TO 10 DO 

ADD (POINTER) ? 

PO I NTER - "' . UflLUE S = I ? 

forend? 

PRDCEND mr in5 

PROCEDURE red Cv'fiR ps link) 5 

PROCEDURE CXREF3 error? 

C ADD A RECORD TD THE BEGINNING 
C OF THE LIST > 

RLLOCRTE P? 

IF p <> NIL THEN 

p-'-.PTR S= FIRST? 
PIRST S= P? 

ELSE 

ERROR? 
I FEND? 
PRDCEND rdd? 

MODEND? 
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BOUND VARIANT ALLOCATION f , 



i 

£ MODULE EDUND.U'ftR I rnt_recdrd 5 
4 PRDGRflM ftLLDCflTE-VftRIfiNTi 

6 TYPE 

7 PftRT = BOUND RECORD 

3 name! string <£0> t 

9 number: 1 .. 1000.' 

10 vendor: 1 .. 100? 

11 CASE t: 1 . . £ OF 

12 =1= CSTOCKED PART} 

13 euantity: 1 .. 4000s' 

14 LOCATION! 1 .. 10 J 

15 =£= CUNSTDCKED PflRT> 

16 OBSOLETE! BOOLEAN* 

17 CRSEMD 

18 recendj 
19 

£0 VAR 

£1 pIj 

££ p£: a partp 

£3 

£4 PROCEDURE CXREFD order •:>: a part) ! 

£5 

£6 •■••LIO--" 

£7 BEGIN 

£8 ALLOCATE Pi! Ill ! 

£9 Pi •-•.name := 'UNDERWATER CORKSCREW' 5 

30 p1 a . number := 481? 

31 p 1 '•• . eu ant i ty : = 3998 ; 
•-•c. 

33 rllocate p£: C£] 5 

34 p£'-.name := 'ZITHER G-STRING '5 

35 p£""-. i/eneor s= 35 
36 

37 IF p£' v . obsolete THEN 

38 EXIT .-'LlO.-- 

39 ELSE 

40 ORDER <P£> 

41 I fend; 

4£ 

43 end; 

44 PROCEND5 

45 modend; 



< ) 
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STORAGE ALLOCATION 

(USER HEAP) 
TYPE heaptypid = HEAP (REP exp OF type); 




O • STATIC OR IN STACK 

• CONTROL 

RESET heap_variable; 

ALLOCATE ptr_ variable IN heap_yariable; 

FREE ptr_yariable IN heap_variable; 

• ADAPTABLE 
TYPE id = HEAP (*) 

• SPACE FOR POINTER IS NOT ALLOCATED 
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o 

USER HEAP 



MODULE user_hebp; 

PROCEDURE CXDCL3 sa»/e (card: string <80> 5 
VRR ns 1 . . 8 0s 

P! '"'STRING < ♦ >>5 

TYPE 

cih = HEAP CREP 100 OF string <8 0>>p 

VfiR 

COMPRESSED-. I MAGES 5 CxREFD CIH 9 

C SAVE THE COMPRESSED STRING <CRRD> "'>■ W 
C IN THE HERP > 

WHILE card «:.'n> = " '" DO 
n : = n - 1 5 

whilend; 

ALLOCATE P= Cn3 IN COMPRESSED- I MAGES 9 

IF p <> NIL THEN 

p- - - : = CARD <1 !• N> 5 

I fend; 
procend; 

MODEND 



o 
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o 



SUBSTRUCTURE POINTERS 

variable := a allocated_ptr a [n]; 
variable := a allocated. ptr A.Tield; 

• POINT TO ANY COMPONENT OF 
A DYNAMICALLY ALLOCATED 
ARRAY OR RECORD 

• POINTER TYPE CHECKING 
IS PRESERVED 

• CAUTION— POINTER LIFETIME CAN 
EXCEED DATA LIFETIME 
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SUBSTRUCTURE POINTERS 

MODULE substructure-Fdinter! 
TYPE 

RFlR = RRRRVCI .. 9] OF INTEGER? 

PROCEDURE SEUflRE.iT. *•>: ■'■integer.:' 5 
P-- := p.-- + P ••••; ^ 

PRDCENDS ^> 



: 'ROGRflM 


a 


VRR 




cn: - 


'hRM !■ 


ei : 


""INTEGER? 



RLLDCATE e ? 

E-'-Cl] := 3.5 

SEUflRE. I T C'"E '■• [ 1 ] > j 

P ROC END mj 
MODEND 
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STORAGE ALLOCATION 

(SEQUENCES) 
TYPE seqtypid = SEQ (REP exp OF type); 



o 



t 

• STATIC OR IN STACK 

• CONTROL 

RESET ptr_to_seq_variable; 

NEXT ptr.variable IN ptr_to_seq_variable; 

RESET ptr_to_seq_variable TO ptr.variable 

• CAN BE USED TO AVOID TYPE CHECKING 

• ADAPTABLE 
TYPE id = SEQ(*) 

• SPACE FOR POINTER IS ALLOCATED 
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SEQUENCE 



MODULE sequences; 

TYPE 

»sei » SEQ <REP 10 OF integer); 

VAR 

s*«istoraSe « as«q, 

psei • A asei, 

f « "^integer, 

value s O . . 10 := 0; 

'PROGRAM »;■ 

<• PLACE -VALUES IN SEQSTORAGE > 



ps«q := A seqstorase; 
RESET ps*q» 
NEXT p IN-ps««*1 
■WHILE p <> NIL DO 

value ■!- value + 1; 

p-" ■!= val ue; 

NEXT p IN pseq; 
WHILEND; 



< RETRIEVE VALUES FROM SEQSTORAGE > 






RESET pseq; 
NEXT p IN Psei? 
WHILE p <> NIL DO 



C PROCESS VALUE > 

< -P* REFERS TO INTEGER VALUE > 

-NEXT p TNpseq; 

WHILEND; 

PROCEND s; 

MODEND sequences; 



o 
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STORAGE ALLOCATION 

(PUSH) 



^^j^JP 



o 



STACK FRAME 



HEADER 



PARAMETERS 



AUTOMATIC 
VARIABLES 



PUSH 
VARIABLES 



PUSH ptr; 

• SPACE ALLOCATED AT END OF STACK 
FRAME. "UNAUTOMATIC" VARIABLE. 

• SPACE IS FREED WHEN THE 
PROCEDURE RETURNS. 
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PUSH 



MODULE pushy; 
PROGRAM mfiinj 
PROCEDURE «=.; 



PROCEDURE x (e: •"'•integer) j 
PROCEND x5 



f 

: i 



'HP 

PS ''"'INTEGER? 



push p; 

IF p <> NIL THEM 
p ■""■ : = 48 £5 

ELSE 

PET urn; 

I FEND 



PRDCEND r5 
PPDCEMD main! 
MDDENIi O 
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o 

ADAPTABLE RECORD 



MODULE RLLDCRTE-RDRPTRBLE-RECDRr' 5 

TYPE 

REC = HECDRD 

key: 1 . . 10 0? 
nam* string < ♦ > !» 

RECENI'J 

VRR 

fdinter_trbles rrrryCI .. 10 00] DF a rec5 

PROCEDURE CXDCL3 sr«..'e_strins <s~* string < ♦ > ? 

^ k: 1 - . iooo> ; 

VRR 

p: -"-rec? 

allocate ps CSTRLENGTH <s> 3 5 
p''-.key := K? 
p *"*■- nrm := s? 

pdinter_treleCk3 := p? 
PRDCEND sfiI/'e_str i ns 5 
MDDEND 



o 
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ALLOCATING ADAPTABLE TYPES f) 



MODULE fixers; 
PROGRAM a? 
VflR 

P_ft_ftRRfty: ''ARRA Y C ♦ ] DF INTEGER? 
P-fl-STRINS! "'STRING < ♦ > ? 

p_ft_HEftp: •""HEAP »:. ♦ > ? 
p-A_seeuence! ""SEQ < ♦ > ; 

VflR 

P_IS ""INTEGER? 

P-CH! '""CHftR; 

ALLDCATE P_A_ ARRAY ! CI . . £lj] j 

p_a_array"" C33 5= - 35 ^•■■- y ' 

ALLDCATE P-ft-STRING^ CI 03 5 

p __ ft _ s t r i n g -'■• : = -' S $ 3 $ $ $ $ $ $ 3 •" ; 

ALLOCATE P_A_HEAp! C CREP 100 DF INTEGER]]? 

RESET p_a_heaf-; 

alldcate p_i in p-a.heap 5 

p_i"- := 16? 

ALLDCATE P.ft.SEEUENCE = C CREP 1000 OF CHRP] 3 ? 

RESET p_a_seeuence? 

NEXT p_ch IN p_r_seeuence! 

P-CH"- := -x-'; 

procend; 

MDDEND5 

o 
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"HEAPS" 

1. ALLOCATE - ALLOCATES SPACE IN "SYSTEM HEAP" 

2. ALLOCATE IN - ALLOCATES SPACE IN "USER HEAP". 

3. RESET - RELEASES ALL VARIABLES IN "USER HEAP". DOES NOT 

CHANGE POINTERS. 

4. FREE ~ RELEASES A PARTICULAR VARIABLE IN "SYSTEM HEAP" OR 

"USER HEAP". SETS POINTER TO "NIL". 

"SEQUENCE" 
^ 1. NEXJ - ALLOCATES SPACE IN THE "SEQUENCE". 

o © 

2. RESET - RETURNS "POINTER TO SEQUENCE" TO BOI . DOES NOT 

RELEASE VARIABLES. 

3. RESET TO - RETURNS "POINTER TO SEQUENCE" TO AN INTERMEDIATE 

POSITION. DOES NOT RELEASE VARIABLES. 



o 



o 



o 



o 






o 



o 
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10 THINK ABOUT 

1. WHETHER "USER HEAP" OR "SEQUENCE" GOES INTO "STACK" OR 
WITH "STATIC VARIABLES" DEPENDS ON IF "HEAP VARIABLE" 
OR "SEQUENCE VARIABLE" IS "STATIC" OR "AUTOMATIC". 

2. A. WHEN YOU DEFINE "USER HEAP" OR "SEQUENCE" VARIABLE 

IS WHEN THE SPACE IS ACTUALLY CREATED FOR A "USER 
HEAP" OR "SEQUENCE". 
B. RESET THE "USER HEAP VARIABLE" OR "POINTER TO SEQUENCE 
VARIABLE" PRIOR TO FIRST ALLOCATE IN OR NEXT. 



C. THIRD, THE ALLOCATE IN AND NEXT GIVE THE ABILITY TO 



o 



PUT STRUCTURES INTO "USER HEAP" AND "SEQUENCE". 
D. LAST, USER PUTS DATA INTO THESE STRUCTURES. -. 

3. A. ALWAYS HAVE A "SYSTEM HEAP". 

B. ALLOCATE GIVES ABILITY TO PUT STRUCTURES IN "SYSTEM 
HEAP". 

C. LAST, USER PUTS DATA INTO THESE STRUCTURES. 

4. IF YOU PUSH A VARIABLE OF TYPE "POINTER TO TYPE", ONE 
COPY (SPACE) OF THAT TYPE IS CREATED ON THE "SYSTEM 
STACK" AT THAT TIME. 



© 



o 







© 



o 



o 



o 



o 



o 



o 



8 



MACHINE 
DEPENDENCIES 



8-1 



o 

DATA REPRESENTATION 



SCALARS 



• STRUCTURED DATA 



• PACKED ARRAY/RECORDS 



POINTERS 



v 
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CY 170 DATA REPRESENTATION 



TYPE 


SIZE 


ALIGNMENT 


UNPACKED 


PACKED 


BOOLEAN 


bit 


LJ word 


bit 


INTEGER 


word 


word 


word 


SUBRANGE 


as 
needed 


RJ word 


bit 


ORDINAL 


as 
needed 


RJ word 


bit 


CHARACTER 


12 bits/ 
8 bits 


RJ word 


bit 


REAL 


word 


word 


word 


LONGREAL 


2 words 


word 


word 


STRING 


n* 12 bits 


LJ word 


12 bit 


SET 


as 
needed 


LJ word 


bit 


ARRAY/RECORD 


component 
dependent 


word 


unaligned 
components 


FIXED POINTFR 


18 bits 


RJ word 


bit 



o 
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CY 170 DATA REPRESENTATION 



UNPACKED 

TYPE 

FT = RECORD < FILE TABLE > 

FT_NfiME: STRING <7>> 
FT_TYPE: <BI»DI»LS»PR>» 
FT_fiCCESSES: INTEGER* 
FT-USERS: 0..100* 
FT_P_IDREQ: A IDREQ» 
FT_DISK: BDDLEftN 

recend; 



O 



59 



C, 



48 



36 



24 



C 7 



12 



C 4 



number of accesses 



ty 



users 



pointer 



v 



o 
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CY 170 DATA REPRESENTATION 



o 



PACKED 



TYPE 

FT = PftCKED RECORD 
FT_NftMEs STRING<7>» 
FT_TYPE: <BI*DI»L6»P'R>» 
FT_ftCCESSES: INTEGER* 
FT_USERS: 0..100» 
FT_P_IDREQ: A IDREQ* 
FT_DISK: BDDLEftN 

recend; 



FILE TABLE > 



59 



^W' 



48 



36 



24 



12 



Ci | c 2 | c 3 j c 4 | c 5 


C 6 C7 


ty 




number of accesses 


users. 


pointer 


d 





BEST CASE 

TYPE C 170 BEST > 

FT = PftCKED RECORD £ FILE TftBLE > 

FT_NftME: STRING<7>> 

FT_TYPEs <BI>DI»LG>PR>» 

FT_USERSs Q..1D0* 

FT_DISK: BODLEftN* 

FT_UNUSED: . . £55 , 

FT_P_IDREQ! A IDREQ> 

FT_ftCCESSES: INTEGER 
RECEND5- 



o 



59 



48 



36 



24 



12 



Cn 


c 2 


c 3 |. 


c 4 


c 5 


c 6 


c 7 


ty 


users 




unused 


pointer 




number 


of accesses 
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CELL 

CELL DATA TYPE 
POINTER TO CELL 

APPLICATIONS 

— INPUT/OUTPUT PROCEDURES 

— AVOID TYPE CHECKING 



,'COPF SUSER.CELL_EXAMPLE 
MODULE R; 

PROGRAM CELL^EXAMPLE? 

VAR 

PTR: A CELL» 

INT: ^INTEGER* 

STRING_l: [STATIC] STRING <8> := 'MNOPQRST'» 

CHARACTER-l: CHAR* 

C: CELL* 

Is INTEGER? 

PTR := A STRING_1? 
CHRRRCTER_1 := PTR~ <4> ? 
PTR := ' S STRING_1 <4> ; 

C := ptr a ; 

CHRRRCTER_1 : = PTR~? 

PTR s= I NT; 

INT s= PTR? {ONLY IF PTR CONTAINS ADBR OF AN INTEGER} 

C := I? 

I := C? 

C := FALSE? 

C := CHARACTER- 1? 

PROCEND CELL_EXAMPLE? 
MODEND A? 
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ALIAS 

O (CV 170) 

♦ RLLOUS "HOn-CVBIL- IDENTIFIERS 

♦ HDCL/HREF RELRTED 

♦ EHHNPLES 

MODULE TEST RLIRS "SYS. 123'; 

PROCEDURE SORT RLIRS 'SRTMRG9' [XREF] 
C VRR X: STRING C*)) ; 



\^x 



o 



VRR 

DEVICE_RLLOCRTION_TRBLE RLIRS 'DRT' 
[X'DCL] SET OF 8.. 9 99; 

PROCEND SORT; 

MODULE TEST 
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o 



MACHINE-DEPENDENT 
FUNCTION 

FUNCTION 

#SIZE (arg) Returns the size in cells 

of a variable or type 



J 



^k^kJIr 



#SIZE FUNCTION 



o 



o 



1 

2 MODULE I'ARIANT.RECDRD-TYPE.'' 

4 PROGRAM main! 
5 

6 CONST 

7 maxsize = 4095? 
8 

9 TYPE 

10 SHAPE = (TRIflNSLEJ PARALLELOGRAM* SEUflRE) * 

11 SIDE-RANGE = .. MftXSIZEJ 

12 ANGLE = - 180 .. 1805 
13 

14 TYPE < VRRIRNT RECORD > 

15 FIGURE = BOUND RECORD 

1 6 x * 

17 V! SIDE-RANGE* 

18 CASE s: shape OF 

19 =triangle= 

20 side: side-range* 

21 a1* 

22 a2: ANGLE! 

23 =parallelogram= 

24 skew: angle? 

25 si* 

26 S2I SIDE-RANGE* 

27 =SEUARE= 

28 EDGE! SI DE-RANGE.* 

29 CRSENB 

30 RECEND* 

31 

32 VflR 

33 si. 

34 s2: INTEGER* 

35 e_p» 

36 r_p: "'"FIGURE? 
37 

38 BEGIN 

39 allocate e_p: CseuareJ 5 

40 si := «SIZE <e_p-'-> ; 

41 ALLOCATE R_P: [TRIANGLE J * 

42 s2 := "SIZE < r _ p a > * 

43 end; 

44 

45 PROCEND main* 

46 MODEND. 
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GENERAL INTRINSICS 

#C0NVERT_P0INTERJT0_PR0CEDURE(p,9) 
Converts a pointer to a procedure with no 
parameters (p) to a pointer to a procedure 
with an arbitrary parameter list (q). 

#KEYPOINT (class, data, id) 

Generates the keypoint hardware 
instruction. 

#SCAN (select, string, index, found) 

Scans the string until a match is found with 
the select mask. 

#TRANSLATE (table, source, destination) 
Translates a source string into a destination 
string using a translation table. 

#UNCHECKED_CONVERSION (source, target) 
Copy source to target. Presumably source 
and target are different types. 



NOTE: SEE REFERENCE MANUAL FOR FURTHER DETAILS ! 



o 



8-10 



o 



9 



INPUT/OUTPUT 



O 



o 
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FILE STRUCTURE 



LEGIBLE/PRINT 



E E EEE EEE EEE 

O O OOO OOO OOO 

L L LRL LRF LRF 



O 



BOI 



EOI 



BINARY/DIRECT 



E E E E E 

O OO 

R R F R F 



t 

BOi 



EOI 



n 
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^miS 



o 



o 



CYBIL INPUT/OUTPUT 

• PREDEFINED PROCEDURES 

• ACCESS METHODS 
LEGIBLE (LG #...) 
PRINT (PR #...) 
BINARY (Bl #...) 
DIRECT (Dl #...) 

• PREDEFINED TYPE DECLARATIONS 
FILE:ACELL 

ORDINALS 
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WRITE LEGIBLE 



o 



■•-'SES . GENCDnP SF=ULG CI MBIT CI FIN 

* GENERATING COMPILE FILE COMPILE 

* END GENCDMP COMPILE <- ERSE 

•••'"SES . EVB I L EE 

® COMPILING COMPILE 

:« END CYBIL COMPILE -> LISTING? L 

••••'SES « L I NK 170 EVBEL I B 

* END LINK 170 LGDB 

/LDQ3 

START OF JOB 

END OF JOB 

LGDB. 

•••■'reu i mi" ? ul.g 

SRENINDjNLG. 

/cdpm ? ljl.g 



30 



r 



DULE MRITE_LEGIBLE! 



*CflLL PXIOTVP 
®CflLL LGZOPEN 
®CRLL LGZCLDS 
BCRLL LGZPUT 



J 



PROGRRM fi? 

URR 

OUT" FILE" 

LG#DPEN <OU u ? OUTPUT ? » OLD# ? OUTPUTS RSISC- 5 
LG#PUT<OUTj' START OF JOB')? 
Lb#PUT<DUT ? 'END OF JOB')? 
LG#CLDSE<nUT»RSIS#>; 

PROCEHH R? 

MODE MB 
EOI ENCOUNTERED. 



O 
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o 



o 






OPEN/CLOSE PROCEDURES 

xx#OPEN (f,name, status, mode, position) 
PR#OPEN (f, name, status, position) 
xx#CLOSE (f, disposition) 

F#SABF (f) 

LG#CODESET (f, encoding) 
PR#CODESET (f, encoding) 

PR#LIMIT (f, lines_per_page) 
PR#SETPGNO (f, page_number) 
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o 



WRITE 
LEGIBLE 

LG#PUT (f, source) 
LG#PUTPART (f, eol, source) 
LG#WEOL (f) 



PRINT FILE 

PR#PUT (f, source) 
PR#PUTPART (f, eol, source) 
PR#WEOL (f) 

NOTES— source, target: STRING (*) 
eol : boolean 
chars read : integer 
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o 



o 



i -7 

1 "7 

J. : 
1 "? 



WRITE LEGIBLE FILE 



U 7 
8 
1 



module nrite_legible? 

TYPE 

file = •"■CELL? 

FILE-STRTUS = (NEW#? DL2#) J 

FILE-RDI'E = (INPUT*? DUTPUT#! CDNCURRENTf ) j 
FILE-ENOCH I NG = (HSCI l64#? RSCIl61£*? RSEII#>? 
FILE-P1RRK = (liRTH#! EOR#« EOF*? EOI*> ? 
FILE.PDSITIDN = (FIRST*! RSIS#? LRST*':< 5 

10 CDNST 

il RETURN* = LRST*? 

i£ TYPE 

9 13 FILE-DISPOSITION = FIRST* .. RETURN*? 

14 "C I.E. (FIRST*? RSIS*? RETURN*) > 

15 PROCEDURE CXREF3 lb#dpen 

16 (UflR LEGIBLE-FILE 5 FILE? 

17" file_nrhe • STRING <:>":'? 

! -' IS STRTUS ! FILE-STRTUS? 

9 l'f, RODE : FILE_F!DHE? 

; J £0 POSITION ! FILE-POSITION!)? 

£1 PROCEDURE CXREF3 lo#eldse 

££ ( legible-file ! file." 

£3 disposition ; file_bisposition> 5 

£4 PROCEDURE CKREF3 lo#put 

£5 ( LEGIBLE-FILE ! FILE? 

£6 line : STRING (»0 > ? 

£7 

£8 PROGRAM A? 

£9 



30 UflR 

31 OUT; FILE? 



33 LGttDPEN (OUT ? ' OUTPUT ' » DLD# ? OUTPUT* ? AS I S#> ? 

3£ 34 LG#PUT'::0UT? 'START OF JOE' >? 

37 35 LG#PUT(OUT? J END OF .JOB'>? 

44 36 LG#CLOSE(DUT?flSIS#); 

44 37 

46 38 PROCEND fl? 

46 39 

46 40 MDDEND 
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PARTIAL WRITE 



O 



MODULE WRITE.LEGIELEJ 

?? SET (LIST := OFF* ?? 

♦CftLL PXIDTYP 

♦CftLL L.GZDPEN 

♦ CftLL. L-GZCL-OS 

♦ CftLL. L.GZPUT 
♦CRLL LGZPUTP 
♦CftLL- LGZWEDL. 

?? RESET ?? 

PROGRAM ft? 

VflR 

out: file? 

xftRRftv: CSTfiTIC] ftRRftrCl .. 5] DF integer := C5j IUj - 5* 100? 0] > 

i: 1 .. 5» 

Si STRING CI CO J 
1_: INTEGER? 



l_G«QPEN CDUTJ "OUTPUT"? OLDSj OUTPUT"? RSIS") J 

i_s«put (dutj "START OF J0B'> S 

FDR I := 1 TO 5 DO 

STRINGREP <s» i_> XftRRft v C I ] > 5 
i_G«PUTPftRT (dutj FALSE j ■=:■> 5 

forehd; 

L_G«WEDI_ '"OUT:: 1 ; 

i_G«PUT (dutj "END DF JDE">j 

LS«CLOSE (DUTj ftSIS») 5 

PROCEND ftj 
MODEND 



v 



o 
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o 



o 



^Ifryiijr 



READ LEGIBLE 

LG#GET (f, chars read, target) 

LG#GETPART (f, eol, chars_read, target) 
F#MARK (f, mark) 



LG#GET 
F#MARK 




DATA# 
true 



false 



Process 
Input 
Line 
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READ LEGIBLE O 



MDDULE REflD-LEeiBLE! 

PROGRAM e? 
?? SET (LIST := DFF;- ?? 

♦CAl_l_ PXIDTYP 

♦CALL LS2DPEN 

♦CALL. LGICLDS 

♦CALL LG25ET 

♦CALL. FZMARK 

?? RESET ?■? 

VRR 

i : 1 . . 8 ? 

NCHRRS! INTESERJ 

EDL: EDDLEflN!" <r -~. 

MARK! FILE-MARK? i J 

str: string 03 CO ? 
input: file? 

l5»dpen (input? "input"? old"? input"? ftsis«>5 

LS"GET (INPUT? NCHARS? STR.J ? 
F"MARK (INPUT? MARK) ? 

WHILE (str (1> <> ••;:••'> fiND (mark = data-..' DD 
•C PROCESS INPUT STRING > 

LG"GET (INPUT? NCHARS? STR.:'? 
F"MARK (INPUT? MARK> ? 

WHILEND? 

LG«CLDSE (INPUT? ASIS») ? 

PRDCEND b? 
MDDEND 
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READ PARTIAL LINE 



LG#GETPART 
F#MARK 



false X ^v 
— -^ DATA# J> 



\J 



true 



Process 
First 
Part 




EOL 



false 



true 



LG#GETPART 



Process 
Next 
Part 
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PARTIAL READ 



O 



MODULE READ_LESIBLEi 

PROGRAM e? 

?? SET a I ST := OFF> ?? 

♦CALL pxiotyp 

♦CALL. LG2DPEN 

♦CALL L5ZCLDS 

♦CALL LSZGET 

♦CALL LGZGETP 

♦CALL FZMARK 

?? RESET ?•? 

VRR 

i : 1 . . 3 ? 

nchars! integer? 
eql: eodlean) 
mark: file-mark!" 
str: string (8 CO ? 
input: file! 

NCHARS := 10? /" \ 

LG«DPEN (INPUT? "'INPUT' 5 DLD"! INPUT"? AS IS".: 1 ! V.^ 
LG"GETPART (INPUT? EQLj NCHARS? 2TR) ? 
F"MARK ( INPUT? MARK) ? 
WHILE MARK = DATA" DO 

FOR i := 1 TO nchars DO 

•r PROCESS STR. (D > 
FOREND? 
WHILE NOT edl DO 

LG"GETFART (input? edl? nchars? str.j ? 

FOR i := 1 TO nchars DO 
•r PROCESS STR a ::•::• 

forend; 
whilemd; 
•l process rn0ther line j- 

LG«GETPART (INPUT? EDL) NCHARS? STR> ? 
F"MARK (INPUT? MARKJ ? 

whilend; 

LG"CLOSE (INPUT? ASIS"> ? 

PROCEND e! 
MODEND 
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READ/WRITE BINARY 

BI#PUT (f, source, length) 
BI#GET (f, target, length) 



NOTE: source, target: A cell 
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WRITE BINARY FILE ~ 

o 



MODULE WRITE-BINftRti 

?? SET (LIST := OFF> ?? 

♦CFti_l_ PXIQTYP 

♦C(=ll_l_ EIZQPEN 

♦Cl=ll_l_ BIZCLOS 

♦CALL BIZPUT 

?? RESET ?•?■ 
PROGRAM c» 
VRR 

EI MS FILE? 

x: string <100>* 

Y! ftRRfiYCl .. 1000] DF INTEGER? 

•C CONSTRUCT VALUES FOR X AMD V > 

BIROPEN (BIN! '" E I NOUT •' !■ NEW" J OUTPUT"? FIRST".); 
BI«PUT (BIN! "LDC <::<>!• "SIZE kiO'?} 

bi«put (binj "LOC <y> j "SIZE <:•(>':>> 

BISSCLQSE (BIN J FIRSTS) S 

prdcend; 

MODEND 



o 
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READ/WRITE DIRECT 



DI#PUT (f, key, source, length) 
DI#PUTDIR (f, key, source, length) 
DI#GET (f, key, target, length) 
DI#GETDIR (f, key, target, length) 
DI#LOCATE (f, key) 



o 



o 



OPERATION 


XFER 


KEY 


LENGTH 


PUT 


OUT 


returned to 
program 


supplied 


PUTDIR 


OUT 


supplied by 
program 


supplied 


GET 


IN 


returned to 
program 


returned 


GETDIR 


IN 


supplied by 
program 


returned 


LOCATE 


none 


supplied by 
program 


N/A 
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WRITE DIRECT FILE 



o 



MODULE CDNSTRUCT-D I RECT.F I l_E J 

?? SET (LIST := DFF> ?? 

♦CRL.L. PXIDTYP 

♦CfiLL. DIZOPEN 

♦CFll_l_ HIZCLDS 

♦Cl=ll_t_ DIZPUT 

?? RESET ?? 
PROGRAM r.? 
TYPE 

RECS = RECORD 

NfiMES STRING <£C0 J 

JULiRrj-DRTE! .. 99999 > 

RECENIij 

VAR 

i : 1 . . 1 !• 

x.i rrrryCI .. 10 03 DF recsj 
key: ftRRftvCi .. 100] DF integer? 
dir: file? 

disqpen (dirj "DIRFILE"' > NEW"? dutput«» firsts)! V ^ 

FOR I := 1 TO 100 DO 

d i "PUT (dirj key C i ] !• "LOC <:x. C i ] > j "S I ZE Cx C i ] ■> .:• S 

forend; 

BI«Cl_DSE (DIRJ FIRSTS) j 

PROCEND dj 

HODEND 
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POSITIONING 

xx#FIRST (f) 

xx#LAST (f) 

DI#LOCATE (f, key) 

LG#TAB (f, column number) 

Q PR#TAB (f, column number) 

PR#LINE (f, line_number) 
PR#SKIP (f, number of_lines) 
PR#EJECT (f) 
PR#PAGE (f) 



^linijdr 
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END-OF-DATA HANDLING 



xx#WEOR (f) 



Write 
END-OF-RECORD 



xx#WEOF (f) 



Write 
END-OF-FILE 



F#MARK (f, mark) 



F#WORDS (f, words) 



Return last file 
structure mark 



Return length of 
last transfer 



o 



j 
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o 



o 



STATUS INTERROGATION 



F#TERMINAL (f, is_term) 



xx#OLDCODESET (f, encoding) 



xx#COLNO (f, column_number) 



PR#LINO (f, line_number) 



PR#PGNO (f, page_n umber) 



PR#OLDLIMIT (f, no_of_lines) 



NOTES— is term : boolean 

xx=LG or PR only 



9-19 
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COMPILE TIME 
FACILITIES 

O 



o 
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SES. CYBIL OPTIONS 

I = Source file CCOftPILEl 

L = Output file [LISTING! 

Suppress source (0) ^V^ 



o 



e& 



B = Binary file tLG03 






V**' 



CHK = Nil pointer reference (\\) , range (R) , 

subscripts (S) , none v C® A CJ1RS] 

LO = Full listing - fl, Sp II <F> 

o 

Generated code CQ) , ^f 

Attributes (fl) , ^^ 

List fatal diagnostics only (|J) , ,,J cV 
Cross reference list (R or fjfl; , 
Source (S) , t^— p^KA/T" 
Use listing pragmats if LISTEHT is Oil 

and LO = K 

D = ^ Symbol Table CSD)-^ ^ ^^J 
Debugging Statements tffo^ ^^^^/^ 
Full Debug (ffl) ^ 
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CYBFORM 
(before) 



RSC I I 
••"iflTCH 

• •'GET ? FDR 

• ■■'CDPM ? FDR 



o 



o 



nodule for. statement; 
progrir main; 

const 

inltial»l> 

f inal'200; 

v«r 

wiinteger* 

xt integer* 

atarrayt initial. .301 of integer; 
xt-lnitltl; 
for wt» initial to final do 

X«"X*lj 

atM] t« aTw] ♦«; 
forend; 
procend «ainj 
■odend for. statement) 
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CYBFORM 
(after) O 



/SES.CVEFQRn FOR 

* END CYEFDRM FDR 

/REWIND J FOR 

SREWINDiFOR. 

/CDPV j FDR 



MODULE for_state»ent; 
PRQGRAK main; 

CONST 

Initial ■ 1, f~~~\ 

final • 100 J ^J 

VAR 

mi integer* 

x» Integer* 

a: array [Initial .. 591 of Integer; 

x i* Initial} 

FOR w i» ini tial TO final 01 
x I* x ♦ lj 

a Cm] t* a Cm] 4- x; 

FORENO; 
PROCEND nain; 
HOOEND for.stateaent; 
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.••■SES.Ct'BIL FDR CO LO=F 

♦ COMPILING FDR 

♦ END CVEIL FOR -> LISTING? LSD 
■ REWIND!. LI. ST IMG 

IREWIHDp LISTING. 
■COPY 'LISTING 

1 SOURCE LISTING OF fdr_strtement 
1.0 8133 <'. > l£v30--81 



4:09 PM 



NOS 
PAGE 1 



CYBIL--CC 



o 






1 f 


1QDULE FOO-STRTEMENTJ 


lj 


c 




o 


■~l 


PROGRAM mr in; 


lj 


4 




10 


5 


CONST 


10 


fc. 


I N I T I i=tl_ = In 


10 




FINRL = 1005 


10 


;-; 




10 


9 


VAR 


10 


. lj 


W! INTEGER* 


10 


LI 


X! INTEGER* 


10 


. c 


*: flRpftY Cinitirl .. 50] a 


10 


~l 




10 


14 


x := initial! 


15 1 


15 


POR w := INITIAL TO FINRL DO 


16 1 


& 


x : = x + 15 


£0 1 


. i' 


r Cw] := r Cw] + x? 


3 


l3 


FOPEND5 


•-'^! 


9 


PROCEND mr in? 



33 20 MODEND FaR_STRTEMENT5 

♦♦♦♦ MD D I AGNOSTICS. 



o 



10-5 



1 CROSS REFERENCES DF fdr.strtement 
1 . S 1 3 3 < '■> 1 £ ,-• 3 ■ ••• 81 4 : 9 P M 



IDENTIFIER- 



FINAL 

INITIAL. 
15 

MA I N 

W 

17/-S 



-DEF I NEB- 
ON LINE 
12 



10 



NOS C 


t'EILx'i: 


PAGE 2 


\ 


REFERENCES 




1 7--N 


17 


15 




12 


14 


19 




15 


17,-S 



D 



16 



17 



11 



1 4,-71 



16.--M 



'-' ♦♦♦ REFERENCE hBEREVI AT I DNS : M^ddifyj A=at 

TRIBUTE? S=SUESCRIPTJ I = I--0 REFj R=READ|. Ul=WRITE5 P=PARAMETEP 

EDI ENCOUNTERED. 
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1 ATTRIBUTE LIST FOR fdr-Statemeht NOS Ct'BIL--CC 

1.0 3133 ■:: ;■ 12/30^81 4:09 PM PAGE 1 

IDENTIFIER— DEFINED SIZE unit— TYPE I.OCATIO 

N— BLOCK— NEST— CONTAINED OR DECLARED IN ATTRIBUTES 

DN LINE . 



LEVEL 

1 MAIN 



SEC+DF 

12 50 word STRUCTURE AUTO+7 

ARRAY' 



FINflL - 7 CDNSTANT 

£ 1 MR I N 

initial. 6 CONSTANT 

£ 1 MR IN 

MftIN 3 PROCEDURE 

1 

w 10 1 word VARIABLE AUTO+5 

£ 1 MR IN 

INTEGER 
11 . 1 word VARIABLE AUTO+6 

£ 1 MAIN 

INTEGER 
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LOADER MAP 



^^it^ir 



'•'RHP J PRRT 

MAP , PART, 

.-'SES . I_ I NK 1 7 CMECL. I E 

1 LORD MRP - FOR_STA 

S0.--01.--02. 15.18.35. 



PAGE 



3ER LOADER 1.5 



FLIP nF THE LDflU 
LHfl+1 DF THE LOAD 



ill 

557£ 



HRITTEN TD FILE LGOB 

TRANSFER ADDRESS ~ SM=MAIN 

PROGRAM ENTRY POINTS — FOR_Sl 



BLOCK 
RE COMMENTS 

FOR.STA 



PROGRAM AND BLOCK ASSIGNMENTS. 
ADDRESS LENGTH 



FILE 



DATE 



PROCSSR iJER LEUEL H 



37 LGO 30-01- 0£ CYBIL 
i4 UL-CYBCLIB 79.-'08.-'£4 COMPP:-'" 



<r 



SW=ERSC 15 

PASCAL-X RUNTIME - ERRDR EXITS 

SH=STST £14 63 UL-CYBCLIB 79,-iv- 
PASCAL-X STACK MGR- PROLOG EXCEPTION + DBTATN 

SUNMMST £77 £7 UL-C^' 

PASCAL-X RUNTIME - INITIALIZE PPP'"" 

SM=MAMfl 3£6 



{J 



.ljCSSR UER LEUEL H 



SH=STSS 
PASCAL-X :-■'"•' 



■j5 
. klJCESSOR. 
...;.YS 5513 
-wtSS SYSTEM REQUEST. 
CPU.WTD 5553 
WRITE ONE WORD. 



.U.J.B 79--08.--E4 COMPASS 3.6 49' 

SL-SYSLIB 79.-ll'-£5 COMPASS 3.6 50 

79.--ll.-£5 COMPASS 3.6 50 



4U- 

17 



SL-SYSLIB 



SL-SYSLIB 79.--ll.-£5 COMPOS 



,6 50: 



SL-SYSLIB 79.--ll.-£5 COMPASS 3.6 508 



i48 CP SECONDS 



TABLE MOUES 



E16 00B CM STORAGE USED 



END LINK 170 LGOB 



o 
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o 



o 



o 



ABORT DUMP 



.••'LGDB 

1- CYBIL POST MORTEM PROCESSOR 

- ABORT AT £13 STACK= 7501 

- CP flBDRT FROM 135 

- SUESCRIPTRflNGE ERROR 

EXCHANGE PACKAGE 
I AC I ] BE I j Kill 

7575 00000000000000000000 

1 7506 1 6 3 
£ 7571 7501 00000000000000000000 

3 7507 5573 00000000000000000063 

4 1 - 1 

C% "T* HUT ,£ i**i «""| •**? *— ^t ™y ""^i mm y m ^t *^i "■! ^i —y ™^i ~^i "-^i *"jt ~^t """^ ~^i ™j -" 4 

•-' '* *-'0 U C •' { i i i «" f f i* f i' i" r i*' i*' i*' i'' i" C**^ 

6 1 £ 34 1 - 01 0S£4£ 1 03 1 35 

7 75 07 71 1 02242 

- CALL NESKflND STACK DUMP) 
ABS ADDR STACKFRAME 

135 ' 7501 

- SUESCRIPTRflNGE' ERROR 



10-9 



OBJECT CODE 



o 



.•■•SES.CYBIL FOR CC L0=0 

♦ COMPILING FOR 

♦ END CYEIL FDR -> LISTING? LGD 
.-•REWIND!. LISTING 

JREW I MDj LISTING. 

•CDPY» LISTING 

1 SOURCE LISTING OF fqr_strtement 

33 < > 1£.--'18>--81 1:24 PM PAGE 1 

1 MODULE FDR.STRTEMENTJ 

PROGRAM mr in? 



10 


1 


10 




10 


' w' 


10 


4 


10 


Cj 


10 


6 


10 


i - ' 


10 


,C; 


10 


9 


10 


10 


10 


11 


10 


12 


10 


13 


10 


14 



CONS 


T 




INITIAL 


= 1, 


FINAL = 


i o o ; 


VRR 






w: 


INTE' 


5ERJ 


'•'•'. ■ 


INTE' 


5ER? 


r: 


RRRR' 


V [INITIAL. 



50J OF INTEGER? 

X ! = INITIftL) s— x 

10 61700 00071 L_8 SE7 B0+57 ♦ R_l R_0 ^-^ 

01 00 00 00 OK R-l +• CIL"PGI 

11 01 0000 OX I 9 RJ ♦ CIL^SPE 

6 1 S E B + ♦ R _ R _ 

12 76020 L_4 SX0 B2+B0 ♦ R_3 R_0 R_l 

76010 SX0 E1+B0 ♦ R_2 R_0 R_l 

36660 1X6 X6+X0 ♦ R_2fl R_0 R_2 

31 711000 0144 SX1 E 0+1 00 ♦ R_l R_0 

37116 1X1 XI -X6 ♦ R_5C R_0 R_2A 

46000 NO ♦ 

32 032100 0016+ PL XI j 14 ■♦ R_0 I 5 

6 1 S B E + ♦ R _ R _ 

33 19 PROCEND mrinj 

L_6 

♦ R_3 R_0 R_l 

♦ R_67 R_0 R_l 

♦ R_3 R_0 

♦ R_0 

♦ R_0 R_0 





L. 


.6 






33 5612 


L. 


„c 


Sfll 


B2+E0 


63710 






SB 7 


X1+B0 


6122000071 






SB2 


B2+57 


34 027 00 000 






JP 


B7+0 


61 00000000 






SB0 


B0+0 


15 46000 






NO 





20 MODEND fcir_statement; 



♦♦♦♦ NO DIAGNOSTIC:: 
EOI ENCOUNTERED. 
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^ti-^ r 



o 



o 



^^0r 



COMPILE TIME 
STATEMENTS 

VARIABLES 

? VAR varidrboolean := exp ? 



? varid := exp ? 

CONDITIONS 
? IF exp THEN 

executable statements 
?ELSE 

executable statements 
? IF END 
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COMPILE TIME VARIABLES 



O 



1 MODULE cdmp.timeJ 

2 

3 TYPE 

4 rec = record 

5 key: strins <6> .» 

6 p: ""unit 

7 recendj 

3 unit = RECORD 

3 amount: integer* 

10 RECENDJ 

11 

1 2 "VflR 

13 cl70«: eoolean := FALSE* 

14 c170b: Baoi-EftN := TRUE? 

15 cl70cs EoauEftN := FALSE?; 

1 6 

17 ?cl70ft := TRUE?; 

1 3 

19 PROSRAM TEST_caMP_TiriE.; 

30 

11 31 VflR 

11 22 -ft! ARRftr LI .. 10003 of pnect X" 

11 33 k! string <6> * L 

11 24 ldc: "unit! 

11 35 

11 26 PROCEDURE CXREF3 ft_PRac (pr: rrrry' [ ♦ ] OF pec 

1 1 37 pk: string <:. ♦ > > 

11 33 VflR pi_ s ""unit;? 

1 1 29 

11 30 PROCEDURE CXREF] e.ppoc <p«: pprpv [ ♦ ] OF reo 

11 31 pk: string >; ♦ > 5 

11 32 VSR pi.: '-unit;'; 

1 1 33 

11 34 PROCEDURE CXREF3 c_prcjc ■>«: pprpv C ♦ J OF reo 

11 35 pk: string <. *■ > 5 

11 36 VflR pl.: "'unit)! 

11 37 

11 33 "IF c170e AND c170c THEN 

- ; 9 E.PRDC <!ft.' k.« uac> ? 

ii 40 ? i fend; 

11 41 TIF cl 70p. AND NOT cl70* THEN 

42 ft_PRac <>»!> k» i_acJ' j 

11 43 7ELSE 

15 44 c-.p&ac <*•> k> ldc) ! 

15 45 71 FEND.! 

25 46 PROCEND test_comp_time; 

25 47 MODEND cqmp-timej 

o 
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o 

LAYOUT CONTROL 

?? keyword : = value ?? 

• SOURCE LAYOUT 

LEFT (1) 
RIGHT (79) 

• LISTING LAYOUT 

-PAQ ES1ZC ( - S& HP^ 
EJECT 

SPACING (1) 

SKIP 

NEWTITLE : = '...' 

TITLE : = '...' 

OLDTITLE 

• MAINTENANCE 

COMPILE 
NOCOMPILE 



o 
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TITLES 



o 



CYBIL.-CC Ul. 790712 SOURCE LISTING - link_lt~t 
30-01-02 15; 45s £5 PfiGE 1 
2 ?? i ITLE '• = 'Linked List Processor ■* ?? 
3 ?? LEFT := 1, RIGHT := 79 ?? 
4 MODULE link_list! 
5 






f-. 


TYPE 

UXHK = ' S REC? 


■J 


I"\ 


REE = RECORD 





9 


•v'RLUES INTEGER? 


n 



10 
i i 


ptr: link 

RECENT} ? 


n 




1 3 • 


UflR 







1 4 


first? link : = Ml 



J. J. 

1 1 



16 ?? NEWT ITLE := > Mr in Loop ' ?? 
17 ?? EJECT ?? 

CYBIL.-CC Ui.O 790712 SOURCE LISTING - link_li~t 
30-01-02 15? 45; £5 PfiGE £ 

Linked List Processor / r "'\ 

Mr in Loop V.,V 

18 ' 

19 PRDGRfiM fir in? 

£0 

f f O ■? 
; ..* u. j. 

1 ££ PRDCEND firin? 
£3 ?? DLBTITLE ?? 
£4 ?? NEWTITLE s = ' Add Elefient td List' ?? 

11 £5 ?? EJECT ?? 

CYBIL.--CC UI.O 79 07 IS SOURCE LISTING - link_li-"T 
80-01-02 15:45:25 PfiGE 3 
Linked List Processor 
fli'D Elefient to List 
1 1 £6 
11 £7 PROCEDURE red (p: link) i 

i 1 OO 

1 1 £9 

£0 30 PRDCEND rdd? 

20 31 modend; 

CYBIL.-CC UI.O 790712 COMPILfiTION SUMMARY - link.ltst 
80-01-02 15:45:2!=; FWE 1 
31 LINES COMPILED. 
NO COMPILfiTION ERRORS. 
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EXAMPLES OF NEWTITLE-. TITLE, OLDTITLE B EJECT 

PY, LISTING 
__JJrCE LISTING„OF. 



ifflnprk^I^TINfi DF RHI-III..C ~~ fiOS UYBIL^X l.U tofcl* 

1 ...DUPLE L f "5 | g,;.|[.;g E ^ 10 , , ' r 1 9^" nsoo ftM PHbE 1 



ft 1 ?? SET t.LISTCTS := DN> ?? /> 

6 £ MODULE RMOOUc! ^-^ 

4 PRDGPhN Mftlh* 

5 ?? TITLE := TITLE 1' ?? 

6 ?? EJECT YY Mr .. r rvkii .Ti l n f-!£l'* 

1 - Dl iPr:E L I - T I NG OF RM 0£ . c .. _ . . , r<LJ -- '" ' fc * L ' L L * " u " " X 

< ;:■ NOVEMBER 10. 198£ 11*00 Hd PHbE d 

TITLE 1 

7 

10 8 TYPE 

111 9 INTRHNbE = U .. ■■'!• 

1 1 

10 U IT OLDTITLE 

10 12 " : " : EJECT yy t .. n - rviHL.rf i.ii HPiy. 

1 :" Oi iRCE LI ST I NG OF PM Oc . .. ... HD -" L . fc 1 L, U. l.U - w i . 

< NOVEMBER 10< 19b£ li:UU HM PHbE j 

1 1 3 

lit 14 TYPE 

ig is ft = integer; 

10 17 ?? NEWJ1TLE := 'NEWTITLE 1' ?? 

10 18 YY EJE'-T '• "!'' f ., n ,-. i vpti ypr- i n i-ic:19 

l^Ci^fE LI'.'TINb DP RMOOOc: ^ _ _ c , HOi L . B1L- U_. l.U •-ci? 

<> NOVEMBER Kb 19&S 11:00 HM PHbE 4 

NEI.iT I TLE 1 

1 1 9 

1 i'i £0 TYPE 
io si b = integer; n 

IS |3 XX TITLE := TITLE £- ?? VT 

10 c!4 YY E-JEL-T < [' kir: i-'VPIl .••if 1 II ktilS* 



i -c n l * P f . E LI >■'■ T I N G F R M U £ . 

< NOVEMBER 10, 198£ 11= UU HM 



PHbE 5 



TITLE £ 



1 £5 

in £6 TYPE 

io £7 c = integer; 

In l§ •••■ NEWTITLE := 'NEWTITLE £- '•'"■•' 

in so yy eject ■■•'•■ 

IxOiiPLE LISTING OF RMOOUc' . . . 

*-"■■ NOVEMBER 10 1. 19b£ 11: UU hM PHbb & 

TITLE £ 
NEW TITLE £ 

1 3 1 

1 n 3£ TYPE 

ig 33 D = integer; 

in x* ?? NEI.iTITLE := NEWTITLE 3' YY 
IO 3 b YY EJECT ?? 

l":OURCE LISTING OF RM00u£ „ 

" NOVEMBER 10, 19GE 11: UU Hh Phl-E < 



FIDS CYBIL^LC l.U bc:19 



NOi CYB1L.-CC 1.0 Sfcl* 



TITLE £ 




NEWTITLE £ 




NEWTITLE 3 




1 10 


37 


W 10 


3 8 


10 


39 


10 


4U 


10 


41 


10 


4£ 



TYPE 

E = integer; 

-. ■-<■ NEWTITLE := NEWTITLE 4' 
I? EJECT ?•?' 



o 



o 



o 



i_y 



: %y 



o 



o 



1>:DUPCE LISTING DF PM0 08 

NDVEMBEP 10-. 1988 11SUU HH 



%ft 



TLE 8 
NEWTITLE £ 
NEWTITLE 3 
NEWTITLE 4 

10 
10 
10 
10 
10 
10 



43 
44 
45 
46 
47 
48 



TYPE 

f = integer; 

NEWTITLE := NEWTITLE 
EJECT 



1SDUPCE LISTING DF PMOOO£ 

>:; .:• NDVEMBEP 10. 198c: 11:00 HM 



PHGE 8 



NDS 



ND: 



PHGE 9 



CYBIL--CC l.U be! 19 



o 



CYB1L-CC l.U tt.il* 



TITLE £ 
NEWTITLE c 
NEWTITLE 3 
NEW! ITLE 4 
NEWTITLE 5 

10 
10 
10 
10 
10 
10 



49 
c ,n 
51 

58 
c .3 
54 



1SDL*CE LISTING DF 



TYPE 

G = INTEGER:; 

DLLTITLE ?•••• 
EJECT ■•? 
PMUUU8 



NuvENBEP 10- 198c 



1 1 : i j Mf'i 



TITLE 8 
NEWTITLE 8 
NEWTITLE 3 
WTITLE 4 

10 
10 
10 
10 
1U 
10 



57 



TYPE 

h = integer; 



= TITLE 3 



59 7? TITLE 

6 '■? eject ?' 7 

lxDi!fcr:E LISTING DF PM0 08 
' >:' NDVEMBEP 10- 19b£ 11:00 hm 

TITLE 8 
NEWTITLE c 
NEWTITLE 3 
TITLE 3 

10 bl PPDCEND MGIN! 
10 68 ?? DLBTITLE '< ? 
10 63 ?? EJECT ?? 
1 :":D» 'F-CE L I i T I NG DF P M 0c : 
•:: NOVEMBER 10- 1988 

TITLE £ 
NEWTITLE 8 
NEWTITLE 3 

10 



1 1 : Fil'i 



64 MDDENB RM0U085 



♦♦♦♦ no DIAGNOSTICS 
EDI ENCOUNTERED. 



PAGE 1 



ND:: 



PAGE U 



NDS 



PAGE 1. 



NDi 



CYB1L-LL l.U fee: 19 



© , 



LYblL-LL l.U be: 19 



LYB1L-LL- 1 . U fed 19 



o 



<T"\ 






O 



o 



o 



TOGGLES 




O 



O 



?? control (toggle: - Oti/OFF) ?? 

TOGGLE CONTROL 
SET 
PUSH 
POP 
RESET t—** 



^J***^ 



♦ LISTING TOGGLES 
LIST 
LISTOBJ 
• LISTCTS 
LISTEHT 



LISTflLL 



produce listing (Qfj) 

1 i st ob j ect code (Of f ) 

list compile time pragmats (OFF) 

command control of listing; 

controlled by LOGOFF) 
union of all listing toggles 



♦ CHECKING TOGGLES 

CHKRhG check range (Ofl) 

CHKSUB check subscripts (Ofj) 

CHKHIL check pointer dereference (OFF) 

CHKTRG check variant record tags (Oh) 

CHKRLL 
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TOGGLES 

?? SET (LIST := DN» LISTDBJ := DN> ?? 
?? PUSH CL I ST := DFF::- ?? 

?'? PDP ?? 

?? RESET j SET CCHKSUB := nFF> ?? 
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TOGGLES 



o 



> LISTING:. LGD 



••-SES.CVEIL. FPR CC 

* COMPILING FDR 

* END CYBIL FDR 

•-•'SETS . LI NK 1 7 EVBCL I B 

* END LINK 170 LGDB 

/LGDE 

L6DB. 

•••'REy I ND t L I ST I ND 

SREW I NB> LISTING. 

•••"CDPMjLISTINIj 

1 CY3IL.--CC Ul. 790712 

30-01-03 03:33:01 PAGE 

2 MODULE fdr-strtefient? 

3 ?? SET -XHKSUB : = DFF> ?1 




10 
i0 
10 

10 
1 
10 
10 
10 
10 
1 
1 
1 
1 
10 
15 

it. 

20 

I—--' 

£6 
£6 



PRDGRAM nHiN? 



14 
15 
16 

17 

1 O 

1 Q 



CDNS 


;t 






INITIRL = 1? 






rx 


nrl = 100? 






UAR 








LI 3 


I NTEGER ? 






'-■'* - 


I NTEGER ? 






r: 


RRRRM C I N X 


t: 


CRL 



SOURCE LISTINb - fdr-Sthteheht 



503 OF INTEGER? 



X != INITIRL? 

FDR ui := xnitirl TO finrl DO 

;.,; : = x + 1 I . . 

r C y 3 : = r [ y 3 + x 5 

20 F0REND5 

21 PROCEND nniN? 

£2 MODEND fdr_strterent? 



^^^^ 



1 CYBIL.-CC U 1.0 790712 COMPILATION SUMMARY 

30-01-03 03:33:01 PAGE 1 
£2 LINES COMPILED. 

NO COMPILATION ERRORS. 
EDI ENCOUNTERED. 



FGR.STRTERENT 
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o 



V 



o 



o 



o 



11 



INTERACTIVE 
DEBUGGER 



11-1 



o 

CYBIL 
INTERACTIVE DEBUGGER 

• VARIATION OF CID 

• REFERENCES CYBIL 
VARIABLE NAMES 
LINE NUMBERS 
MODULES 
PROCEDURES 

• SCL-LIKE COMMAND STRUCTURE O 

• CAPABILITIES 
BREAKPOINTS 
TRAPS 

DEBUGGER PROCEDURES 

VARIABLE CONTROL 

MEMORY AND REGISTER CONTROL 

TRACEBACK 



o 



11-2 



^to*' 



o 



"?■! 



SQA/SQB 



o r 

2 MODULE seh! 

3 

4 CONST 

5 niN = in 

6 riRx = 30? 

' 7 

8 TYPE 

9 T-BRRRM = HRRRM CpiIN , . P1RX J DF INTEGER! 

10 

11 ?? SET (LIST := OFF) ?? 

36 ?? RESET ?? 

37 

38 PROCEDURE CKREF] seurrer <e: t_rrrrm? 

39 UflR SES T_RRRR¥> J 

40 

41 PROGRRM itoinj 

42 

:l 43 UflR 

;l 44 brses T-RRRrvj 

:1 45 seurre: t_rrrrm? 

:l 46 i : miH = . rrxj 

'■1 47 OUT" FILE! 

:i 48 

11 49 l_g#dpen (dutj 'output' ? dlx'Sj dutput#> rsis#> j 

50 i_G#FUT (DUTJ 'STRRT DF PRGGRRR ' > ? 

41 51 FOR i := piin TO rrx DO 

45 52 brse Ci3 5= i! 

47 53 FDREND5 

52 54 SEURRER (ERSE! SEURRE) j 

54 55 ldSput (out? 'End df Prdgrrpi' ? j 

61 56 i_G#ci_nsE (dut< rsis#) > 

63 57 PRDCEHD pirinj 

63 58 MOnEHD ser? 

' 1 MODULE see? 

2 

3 CONST 

4 n i n = i s 

o 5 riRx = 305 

6 

7 TYPE 

8 T_RRRR¥ = RRRRV C PI I H , . P!RX3 DF INTEGER? 

9 

10 PROCEDURE CKDCL3 seurrer <.s: t_rrrrm! 

11 UflR se: t_rrrr¥> 5 

12 

1 1 3 UflR 

10 14 j; niN . . rrx? 

10 15 

10 16 FDR u := rin TO rrx DO 

23 17 se [j] := e Cj] * e Cu3? 

30 18 FDREHD? 

33 19 PRDCEHD seurrer? 

33 20 MODEND see? 
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SAMPLE— 1 



^t^^jr 



•■'SES.GEHcnrnp sf=se cvbccfih 

* GENERATING COMPILE FILE COMPILE 

* END GENCDMP COMPILE <- ERSE 

''SES.CVSIL I=CariPILE EC D=ST 

* COMPILING COMPILE 

« END CYEIL COMPILE -> LISTING, L60 

••■'SES . l_ I NK 1 7 CVBCL I E DEBUG 

*■ END LINK 170 LGOB< ZZZZZDT 

■••''DEBUG? QH 

SDEBUGfDN. 

■••"LGDE 

PflSCflL-X INTERACT I UE DEBUG 
? sb 4S 

-WARN - LINE 48 NOT EXECUTABLE - LINE 49 WILL BE USED 

OK ? mes 
? SB rn=SEB i_=17 c! dm yRR=jj rrj ce 

IN COLLECT MODE 
_END COLLECT 

'? DE 

*B #1 = LINE=48? *B #£ = MDDULE=SQB LINE=17 






■' I"'-, 1 BRSE 

TERROR - NO PROGRAM UARIAELE EASE 

: ' GD 

GO 

«B #1? AT LINE=48 

: ' B'v 1 BRSE 



EASE =0000000 


? DO 



J 







*B #£, AT MODULE=SQB LINE=17 

: " II'.-' BRSE R=SER 

TERROR - NO PROGRAM MAR I ABLE BASE 

DU B 

B = 1 2 3 4 5 6 7 S 9 10 

2 PI PP P7. Pd. :="=; PA P? PP. 



IP 1 
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o 






o 



SAMPLE— 2 



':•' GD 

*B #£< FIT MDDULE=SQB LINE=17 

? DO 

*B #£< AT MDDULE=SQB LINE=17 

? DM SE 

SQ =14 15193893 
1520961591 1520961588 -97935699709263871 £088 68 £08:i" 
? cm mrr=bE20] mri_ue=1 

'? DM B 

B = 1 £ 3 4 5 6 7 8 9 10 11 l£ 13 14 15 16 17 18 19 
21 ££ £3 24 25 26 27 28 29 30 

? CB B=2 
? CB 

*WfiRN - ALL HILL BE CLEARED 

DK ? ¥ES 

? SB 19 
? GD 

m #1? AT LIHE=19 

? DM SE! 

SQ = 1 4 9 16 25 36 49 64 81 100 121 144 169 196 225 £56 

£89 3£4 361 1 441 484 5£9 576 6£5 676 7£9 784 841 9 00 

? GD 

STRRT OF FRDDRRn 

End or Progrrr 
*T #17, END IN MDDULE LP#CLDS DFFSET CEO 

? EUIT 

DEBUG TERMINATED 



-'SRME J BFR 

•-•'SRME ? LDOE=SELGO 



11.-5 



SAMPLE— 3 



.-■•ses,link1.-u selge debug cmecltb 
* END LINK170 LGDBjZZZZZDT 

■••''GET? SPR 
••'iCBUGiPN 

SDEBUGjON, 

••'LGDE 

PflSCRL-X INTERACTIVE DEBUG 

? RER3 F=EPR 

*™f. ~ ' SB LINE=48? ) *WARN - LINE 48 NOT EXECI I 

DK ? ¥ES 

? 3E 

_*B #1 = LINE=48> mb #£ = NDDULE=SQB LINE=17 

':•" EE B=l 
? SB 49 E 

_IN COLLECT MODE 

? ST TVPE=UF?:ITE UHR-BRSE 
? EE 

END COLLECT 

:• bE 1_-.j4 E? ETj EE 

IN COLLECT NODE 
END COLLECT 



o 



TABLE - LINE 49 WILL 



NO TRAPS 

';•' X'B 

m B #i = LINE~49f «B #£ : 

*B #1 = LINE=49 

SB LINE=49 COLLECT" 

ST TYPE= WRITE UflRIABLE=BASE5 

ce; 

? SP ONE E 

IN COLLECT NODE 
? if-, 1 i 

? B'v 1 ERSE; EE 

END COLLECT 

? BP 

*P *U = ONE 

? r,p pr=phe 
-P #1 = ONE 

SP PROCEDURE= ONE? 
DM VARIABLES 
DU UARIRELE=BASEJ 
CE? 

'? GD 

INTERPRET MODE TURNED ON 

*T #1? WRITE INTD BASE IN LINE 5£ 

? REHD DNE 



NDDULE=SQB LINE=i7 ? 



& ■£> ;j+ " 



LINE= 



V_y 



hASE = i 





) 



'J 



9 9 



O 
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^ituvjpr 



SAMPLE— 4 



':•' GO 

-T #1, WRITE INTO ERSE IN LIME 5£ 
? go 
*T #1, WRITE INTO EfiSE IN LINE 5£ 

'? RERD ONE 



i'flot — i c o H- D b U 



? CLERR. INTERPRET 
? CO 



U n 



;l 



u n 



u n 



AT MDDULE=SQE LINE=17 



ND TRAP? 



SQUflRER CALLED FROM MODULE SQA LINE 54 
*IN MAIN PROGRAM - TRACE COMPLETED* 

"' CHECKPOINT F=3ECK 



■ F'RDC MAIN) 



c 



JJEFRULTS = MDDULE SQE PRDC SQUflRER 

' DS! DP1HF 

DEFAULTS = MDDULE SQB PRDC SQUARER? 



BREAKPOINTS 5 



1 PROCEDURES? UETO OFF? 
AUXILIARY CLEAR 



NO TRAPS 



INTERPRET OFF, 



DBUG. j 

LGttOPEN? 

CUflS6i£? 

SW=CMST ? 

PXIDERRj 

SW=CMIB> 

SW=STPSj 

ZCLIIAP.- 

: " EUIT 

DEBUG TERMINATED 



QA j SQB ? 
LG#PUT? 
CUASC64? 
CMMINITj 
PR#OPEN ? 
LP#WEO; 
ZUTMISSj 
UCLDHDj 



SW=ERSC> 
SW=MfiMfl» 
PXIDCLSj 
SW=CMFR« 
ZUTISFN? 
ZN7IMSG, 

ZUTMS£B> 
CPU. CIO, 



SW=STSTj 

PXIOOPN? 

SW=CMFE? 

SW=I£S ? 
ZUTIABTj 

ZCLMISS* 
CPU. SYS ? 



OUT OPTIONS 



W E D 



SW=MMSTj 

SW=STINj 
PXIOCOP, 
SW=CMEF» 

SH=ERPMj 

ZUTICPOj 
ZUTIDCIj 

CPU.WTD 



LP#CLDS 

SW=MMSZ? 

SW=ERRA 

SW=MMEP 

BYPASS ? 

ZUTMMSG? 

ZUTIBCP 



SW=CMAL 



;;w=strm 

ZUTMWSO 



'SR'v'EjSECK 

FILE TOO LONG? AT 000121. 

'I'EF I f -IE ? SECHECK 
'COP¥ ? SOCK j SECHECK 

EOI ENCOUNTERED. 






-'HTTHCH ? SECHECK 
■'DEBUG J RESUP1E ? SECHECK 

PASCAL-:*: INTERACT I UE DEBUG RESTARTED 
DEBUG INTERNAL ERROR. 
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SET BREAKPOINT 



SET-BREAKPOINT I SB 



Address Expression 
* line | 1 
entrypoint | e 
location | loc 

module | m 

overlay | ovl 

offset | o 

first | f 

last 

step | s 

collect | c 

Procedure commands 

collect_end | ce 



= line number 

= entry point name 

= absolute address 

= module name 

= overlay number (n,n) 

= offset from base address 

= starting iteration number 

= last iteration number 

= skip iterations count 

start procedure 

separated by semi-colons or EOLs 

end procedure 



^ 



EXAMPLES 



SB 48 



SBm=sqb 1=17 C; DV var=j; PA; CE 
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° BREAKPOINT CONTROL 



O 



O 



DISPLAY-BREAKPOINT DB 



Address Expression 

line | I = line_numbers 

location | loc = absolute addresses 

entrypoint | e = entry point names 

b = breakpoint-numbers 

offset | o = offset from base address 

overlay | ovl = overlay number (n,n) 

module | m = module name 

SAVE_BREAKPOINT | SAVEB 

file | f = file_name 

Scope Expression 

b 

offset 

overlay 

module 

CLEAR-BREAKPOINT J CB 

Scope Expression 

b 

offset 

overlay 

module 



EXAMPLES 
DBb=2 
SAVEBf=sqbpb=(1,2) 

CB m=sqb 
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SET TRAPS 



SET_TRAP | ST 

trap_type | t = OVERLAY 

= END 

= ABORT 

= INTERRUPT 

= INSTRUCTION 

= RJ 

= XJ 

= JUMP 

= READ 

= WRITE 

(default is entire program) 

= line_numbers 

= absolute_addresses 

= relative to module 

= name 

= overlay name (n,n) 

= module name 

= CYBIL procedure name 

- Start Procedure 
Procedure commands separated by semi-colons or EOLs 
collect_end | ce - End Procedure 



Scope Expression 

line | I 

location | loc 

offset | o 

variable | var 
overlay | ovl 
module | m 
proc I p 
collect I c 



EXAMPLES 



ST t=jump 1=51„53 

ST t=write var=b m=sqb proc=main 
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TRAP CONTROL 

DISPLAY_TRAP I DT 



type = Same as on ST command 
Scope Expression 

line | I = line_numbers 

label = name 

location | loc = absolute addresses 

entrypoint | e = entry point name 

t = trap_numbers 

overlay | ovl = overlay number (n,n) 

module | m = name 

Proc | p = CYBIL procedure name 

SAVE=TRAP I SAVET 



file I f ='file_name 

type 

Scope Expression 

t 

overlay 

module 

proc 

CLEAR_TRAP | CT 

type 

Scope Expression 

t 

overlay 

module 

proc 

EXAMPLES 
DT type=jump 
SAVET f=sqtr t=3 
CTt=3 
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DEBUGGER PROCEDURES 

O 

SET_PROCEDURES I SP 



procedure | pr= name 
collect | c 

Procedure commands separated by 

semicolons or EOLs. 
collect_end I ce 



DISPLAY-PROCEDURE | DP 

procedure | pr = names 

SAVE_PROCEDURE | SAVEP 

file | f = name 
procedure | pr = names 



CLEAR_PROCEDURE | CP f <J 

procedure | pr 

EXAMPLES 

SP pr=one C; DV var=base m-sqa; 
proc=main; PA; CE 

SP pr=two CV var=#vl value=#v1+1 m=sqb; PA; CE 

SAVEP f=sqpr pr=(one,two) 

CP (one,two) 
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VARIABLE CONTROL 



DISPLAY-VARIABLE I DV 



var = name 

default display formats: 

integers - decimal 

ordinals, characters and strings - ascii 

booleans - true/false 

pointers and sequences - octal 

sets, arrays and records - type of components 
format | f = oct | dec | hex 

module | m = module_name 

proc | p = CYBIL procedure name 



CHANGE-VARIABLE I CV 



var = name 

value | v = new_value (must match type of var) 

module 

proc 



EXAMPLES 



DV base 



CV base [20] v=1 



o 
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MEMORY CONTROL 



DISPLAY-MEMORY I DM 



Address Expression 

line | I = n 

entrypoint | e = name 

location | loc = n 
offset | o = offset in base module 

module | m = base module name 

format | f = oct | dec | hex | adr 

numlocs | n = number of locations [1] 

indirect | i 

FORWARD | FW 

numlocs 
format 

BACKWARD | BW 

numlocs 
format 

CHANGEJVIEMORY | CM 

Address Expression 

module 

offset 

value | v 

numlocs 

indirect 

EXAMPLES 
DMoffset=10,n=10 
FW10 



^ 
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o 



REGISTER CONTROL 



DISPLAY_REGISTERS | DR 

p | fl | a | b | x = n 

format J f = oci | dec | adr | hex 

indirect | i 



CHANGE-REGISTERS | CR 

a | b | x = n 

value | v = value_to -store 

indirect | i 



EXAMPLES 
DRa 

CR a=1 v=2100(8) 
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SEQUENCE COMMANDS 

O 



PAUSE I PA 
MESSAGE | ME 'text' 
GO address=n 
SKIPIF | S v1 op v2 
LABEL | LA n=name 
GOTO label=labeLname 
READ | R f=proc_file_name 
READ | R pr=proc_names 

EXAMPLES 
ST t=write var=j m=SQB c 
SKIPIF j=20; GO 
MESSAGE 'j is too large' 
READ flle=SQPR; READ pr=two; ec 



\, 



o 
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o 



o 



INTERACTIVE COMMANDS 



EXECUTE I EXEC 

Address Expression 

line | I = n 

location | loc = n 

offset | o = n 



TRACE_BACK | TB 

entrypoint | e = name 



MOVE M 



sourceJine = n destinationJine = n numlocs = n 

source_offset = name destination_offset = name 
source-location = addr destinationJocation = addr 



HELP H 



subject 
command_name 



SAVE-ALL J SAVEA 

file = file_name 

CHECKPOINT | CK 

file = file_name 



QUIT 

normal 
abort 
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ENVIRONMENT COMMANDS ° 



SETJNTERPRET | SI 

CLEARJNTERPRET | CI 

SET-VETO | SVE 

CLEAR_VETO | CVE 

SET-OUTPUT | SO lo=options 

SET-AUXILIARY | SAUX f=file_name lo=options O 

CLEAR-AUXILIARY I CAUX 



DISPLAY-MAP | DMAP module=name ovl=(n,n) 
DISPLAY-DEFAULTS | DD 
DISPLAY-STATUS I DS 



CHANGE-DEFAULTS I CD 



module = name 
proc = name 
overlay = (n,n) 
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ASCII CHARACTER SET 
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ASCII CHARACTER SET 



o 



HEX 

M 
C 
G 

NAME 

NUL 

SOH 

STX 

ETX 

EOT 

ENQ 

ACK 

BELL 

BS 

HT 

LF 

VT 

FF 

CR 

SO 

SI 

DLE 

DC1 

DC2 

DC3 

DC4 

SKIP 

LCLR 

ETB 

CLR 

RSET 

CUP 

ESC 

FS 

GS 



Hexadecimal (8-bit) representation of the character 
Cursor will be moved (Yes or No) 

Character will be displayed on screen (Yes or No) 
Graphic representation of character displayed 

VALUE DESCRIPTION 

CHR( 0) NULL 

CHR( 1) START OF HEADING 

CHR( 2) START OF TEXT 

CHR( 3) END OF TEXT 

CHR( 4) END OF TRANSMISSION 

CHR( 5) ENQUIRY 

CHR( 6) ACKNOWLEDGE 

CHR( 7) BELL 

CHR( 8) BACKSPACE (CURSOR LEFT) 

CHR( 9) HORIZONTAL TABULATION 

CHR( 10) LINE FEED 

CHR( 11) VERTICAL TABULATION 

CHR( 12) FORM FEED 

CHR( 13) CARRIAGE RETURN 

CHR( 14) SHIFT OUT (BLACK ON WHITE) 

CHR( 15) SHIFT IN (WHITE ON BLACK) 

CHR( 16) DATA LINK ESCAPE 

CHR( 17) DEVICE CONTROL 1 

CHR( 18) DEVICE CONTROL 2 

CHR( 19) DEVICE CONTROL 3 

CHR( 20) DEVICE CONTROL 4 

CHR( 21) CURSOR RIGHT (SKIP) 

CHR( 22) LINE CLEAR 

CHR( 23) END OF TRANSMISSION BLOCK 

CHR( 24) CLEAR SCREEN 

CHR( 25) RESET CURSOR (TO HOME) 

CHR( 26) CURSOR UP 

CHR( 27) ESCAPE 

CHR( 28) FILE SEPARATOR 

CHR( 29) GROUP SEPARATOR 



HEX 


M 


C G 


00 


N 


N 


01 


N 


N 


02 


N 


N 


03 


Y 


Y 


04 


N 


N 


05 


N 


N 


06 


N 


N 


07 


N 


N 


08 


Y 


N r 


09 


N 


N V 


0A 


Y 


N 


0B 


N 


N 


OC 


N 


N 


0D 


Y 


N 


0E 


Y 


Y 


OF 


Y 


Y 


10 


N 


N 


11 


N 


N 


12 


N 


N 


13 


N 


N 


14 


N 


N 


15 


Y 


N 


16 


Y 


N 


17 


N 


N 


18 


Y 


N 


19 


Y 


N 


1A 


Y 


N 


1B 


N 


N 


1C 


N 


N 


1D 


N 


N 
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NAME 


VALUE 


DESCRIPTION 


RS 


CHR( 30) 


RECORD SEPARATOR 


US 


CHR( 31) 


UNIT SEPARATOR 


SP 


CHR( 32) 


SPACE 


EX 


CHR( 33) 


EXCLAMATION POINT 


DQ 


CHR( 34) 


QUOTATION MARKS 


PS 


CHR( 35) 


NUMBER SIGN 


DS 


CHR( 36) 


DOLLAR SIGN 


PER 


CHR( 37) 


PERCENT 


AMP 


CHR( 38) 


AMPERSAND 


RAP 


CHR( 39) 


APOSTROPHE 


LP 


CHR( 40) 


OPENING PARENTHESIS 


RP 


CHR( 41) 


CLOSING PARENTHESIS 


AS 


CHR( 42) 


ASTERISK 


PL 


CHR( 43) 


PLUS 


CM 


CHR( 44) 


COMMA 


Ml 


CHR( 45) 


HYPHEN (MINUS) 


PERD 


CHR( 46) 


PERIOD (DECIMAL POINT) 


SOL 


CHR( 47) 


SLANT 


ZER 


CHR( 48) 


ZERO 


ONE 


CHR( 49) 


ONE 


TWO 


CHR( 50) 


TWO 


THR 


CHR( 51) 


THREE 


FOUR 


CHR( 52) 


FOUR 


FIVE 


CHR( 53) 


FIVE 


SIX 


CHR( 54) 


SIX 


SEV 


CHR( 55) 


SEVEN 


EGH 


CHR( 56) 


EIGHT 


NIN 


CHR( 57) 


NINE 


COL 


CHR( 58) 


COLON 


SC 


CHR( 59) 


SEMICOLON 


LT 


CHR( 60) 


LESS THAN 


EQ 


CHR( 61) 


EQUALS 


GT 


CHR( 62) 


GREATER THAN 


QM 


CHR( 63) 


QUESTION MARK 


AT 


CHR( 64) 


COMMERCIAL AT 


A 


CHR( 65) 


UPPER CASE A 


B 


CHR( 66) 


UPPER CASE B 


C 


CHR( 67) 


UPPER CASE C 


D 


CHR( 68) 


UPPER CASE D 


E 


CHR( 69) 


UPPER CASE E 


F 


CHR( 70) 


UPPER CASE F 


G 


CHR( 71) 


UPPER CASE G 


H 


CHR( 72) 


UPPER CASE H 


1 


CHR( 73) 


UPPER CASE I 



HEX 


M 


C 


G 


1E 


N 


N 




1F 


N 


N 




20 


Y 


N 




21 


Y 


Y 


I 


22 


Y 


Y 


n 


23 


Y 


Y 


# 


24 


Y 


Y 


$ 


25 


Y 


Y 


% 


26 


Y 


Y 


& 


27 


Y 


Y 


i 


28 


Y 


Y 


( 


29 


Y 


Y 


) 


2A 


Y 


Y 


* 


2B 


Y 


Y 


+ 


2C 


Y 


Y 


t 


2D 


Y 


Y 


- 


2E 


Y 


Y 




2F 


Y 


Y 


/ 


30 


Y 


Y 





31 


Y 


Y 


1 


32 


Y 


Y 


2 


33 


Y 


Y 


3 


34 


Y 


Y 


4 


35 


Y 


Y 


5 


36 


Y 


Y 


6 


37 


Y 


Y 


7 


38 


Y 


Y 


8 


39 


Y 


Y 


9 


3A 


Y 


Y 




3B 


Y 


Y 


i 


3C 


Y 


Y 


< 


3D 


Y 


Y 


= 


3E 


Y 


Y 


> 


3F 


Y 


Y 


? 


40 


Y 


Y 


@ 


41 


Y 


Y 


A 


42 


Y 


Y 


B 


43 


Y 


Y 


C 


44 


Y 


Y 


D 


45 


Y 


Y 


E 


46 


Y 


Y 


F 


47 


Y 


Y 


G 


48 


Y 


Y 


H 


49 


Y 


Y 


1 
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NAME 


VALUE 


DESCRIPTION 


J 


CHR( 74) 


UPPER CASE J 


K 


CHR( 75) 


UPPER CASE K 


L 


CHR( 76) 


UPPER CASE L 


M 


CHR( 77) 


UPPER CASE M 


N 


CHR( 78) 


UPPER CASE N 





CHR( 79) 


UPPER CASE 


P 


CHR( 80) 


UPPER CASE P 


Q 


CHR( 81) 


UPPER CASE Q 


R 


CHR( 82) 


UPPER CASE R 


S 


CHR( 83) 


UPPER CASE S 


T 


CHR( 84) 


UPPER CASE T 


U 


CHR( 85) 


UPPER CASE U 


V 


CHR( 86) 


UPPER CASE V 


w 


CHR( 87) 


UPPER CASE W 


X 


CHR( 88) 


UPPER CASE X 


Y 


CHR( 89) 


UPPER CASE Y 


z 


CHR( 90) 


UPPER CASE Z 


OB 


CHR( 91) 


OPENING BRACKET 


BSH 


CHR( 92) 


REVERSE SLANT 


CB 


CHR( 93) 


CLOSING BRACKET 


CIR 


CHR( 94) 


CIRCUMFLEX 


UND 


CHR( 95) 


UNDERLINE 


LSQ 


CHR( 96) 


GRAVE ACCENT 


LCA 


CHR( 97) 


LOWER CASE A 


LCB 


CHR( 98) 


LOWER CASE B 


LCC 


CHR( 99) 


LOWER CASE C 


LCD 


CHR(100) 


LOWER CASE D 


LCE 


CHR(101) 


LOWER CASE E 


LCF 


CHR(102) 


LOWER CASE F 


LCG 


CHR(103) 


LOWER CASE G 


LCH 


CHR(104) 


LOWER CASE H 


LCI 


CHR(105) 


LOWER CASE I 


LCJ 


CHR(106) 


LOWER CASE J 


LCK 


CHR(107) 


LOWER CASE K 


LCL 


CHR(108) 


LOWER CASE L 


LCM 


CHR(109) 


LOWER CASE M 


LCN 


CHR(110) 


LOWER CASE N 


LCO 


CHR(111) 


LOWER CASE 


LCP 


CHR(112) 


LOWER CASE P 


LCQ 


CHR(113) 


LOWER CASE Q 


LCR 


CHR(114) 


LOWER CASE R 


LCS 


CHR(115) 


LOWER CASE S 


LCT 


CHR(116) 


LOWER CASE T 


LCU 


CHR(117) 


LOWER CASE U 



HEX 


M 


C 


G 


4A 


Y 


Y 


J 


4B 


Y 


Y 


K 


4C 


Y 


Y 


L 


4D 


Y 


Y 


M 


4E 


Y 


Y 


N 


4F 


Y 


Y 


O 


50 


Y 


Y 


P 


51 


Y 


Y 


Q 


52 


Y 


Y 


R 


53 


Y 


Y 


S 


54 


Y 


Y 


T 


55 


Y 


Y 


U 


56 


Y 


Y 


V 


57 


Y 


Y 


W 


58 


Y 


Y 


X 


59 


Y 


Y 


Y 


5A 


Y 


Y 


z 


5B 


Y 


Y 


[ 


5C 


Y 


Y 


\ 


5D 


Y 


Y 


] 


5E 


Y 


Y 


A 


5F 


Y 


Y 




60 


Y 


Y 


s 


61 


Y 


Y 


a 


62 


Y 


Y 


b 


63 


Y 


Y 


c 


64 


Y 


Y 


d 


65 


Y 


Y 


e 


66 


Y 


Y 


f 


67 


Y 


Y 


g 


68 


Y 


Y 


h 


69 


Y 


Y 


i 


6A 


Y 


Y 


j 


6B 


Y 


Y 


k 


6C 


Y 


Y 


I 


6D 


Y 


Y 


m 


6E 


Y 


Y 


n 


6F 


Y 


Y 





70 


Y 


Y 


P 


71 


Y 


Y 


q 


72 


Y 


Y 


r 


73 


Y 


Y 


s 


74 


Y 


Y 


t 


75 


Y 


Y 


u 



o 
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NAME 


VALUE 


DESCRIPTION 


LCV 


CHR(118) 


LOWER CASE V 


LCW 


CHR(119) 


LOWER CASE W 


LCX 


CHR(129) 


LOWER CASE X 


LCY 


CHR(130) 


LOWER CASE Y 


LCZ 


CHR(131) 


LOWER CASE Z 


OBR 


CHR(123) 


OPENING BRACE 


SOR 


CHR(124) 


VERTICAL LINE 


CBR 


CHR(125) 


CLOSING BRACE 


TL 


CHR(126) 


OVERLINE (TILDE) 


RO 


CHR(127) 


RUBOUT 



HEX 


M 


C 


G 


76 


Y 


Y 


V 


77 


Y 


Y 


w 


78 


Y 


Y 


X 


79 


Y 


Y 


y 


7A 


Y 


Y 


z 


7B 


Y 


Y 


{ 


7C 


Y 


Y 


I 


7D 


Y 


Y 


I 


7E 


Y 


Y 


•— w 


7F 


Y 


Y 





CHR(128) .. CHR(255) PRINT AS A SPACE ON THE TERMINAL AND ARE 
UNASSIGNED ASCII GRAPHICS 
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APPENDIX B 
I/O 

EXAMPLES 

O 



o 
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I/O EXAMPLES q 



MODULE see? 

?? SET <LIST := OFF} ?? 

♦Cl=ll_l_C PXIOTYP 

♦CBLLC L52DPEN 

♦CALLC LSZCLOS 

♦CflLLC UGZP-UT 

♦CftLLC LS2SET 

""■ RESET -? 
VAR 

OUT j 

INN! FILE J 

LENGTH! integer? 

'.-'1=ILUE! INTEGER? 
MESSflSE! STRING CcHO-i ? 

program mpiin; 

LG"D*=EN (OUT) ' 'OUTPUT x !• QLD'f) DUTPUT«p flSIS«)J 

l5"Put (dutj -'START OF JOB'; 1 ? 

I'PILUE := 345? 

STRINGREP (mesiRgei length? i.-'Filue> 5 

lssput (dut! message; 1 ? 
ls«put Coutj "END OF JOB- '.:■ ; 

LG"CLQSE (auTj flBIS«)i 

PROCEND main! 
MODEND see. 

.••■SES.GENCOMP SF=IOE* CVBCCMN 

♦ GENERATING COMPILE FILE COMPILE 

♦ END GENCDMP COMPILE <- BASE 
■•■SES.CYBIL CC 

♦ COMPILING COMPILE 

♦ END CVBIL COMPILE -> LISTING? lGO 
•-' SES . L I NK 1 7 C YBCL I B 

♦ END LINK 170 LGOB 
■LGOB 

START OF JOB 

345 
END OF JOB 
L.GOB. 
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O I/O EXAMPLES 



O 



1 SOURCE LISTING OF see ' N03 C i'BIL-'C' 

1.0 3133 < .:« 13.-30. ■•-81 4:35 PM PRGE 1 

1 MODULE see? 

3 

4 -C PXIDTVP CONTAINS C'i'BIL TYPE DECLARATIONS. > 

5 

6 TYPE 

7 FIi_E = ''"CELL! 

3 FILE-STATUS = (NEW"! OLD".: 1 ? 

9 FILE-MODE = (.INPUT"? OUTPUT"!! CONCURRENT"; 1 ? 

10 PILE-ENCQDIN5 = CftSC I l64«!i ASC I I b 1 2" ? ASCII":'? 

11 FILE-MARK = <DATA"? EOR"? EOF"? EDI".: 1 ) 

13 FILE-POSITION = (FIRST") AS IS"? LriST".: 1 ? 

1 3 

14 CONST 

15 RETURN" = LAST"? 

1 6 

17 TYPE 

13 file-disposition = first**' .. returns? 

1 9 

20 C I.E. (FIRST"? ASIS"? RETURN":' > 

31 

23 C LSZOPEN Opens legible file as local file. > 

23 

24 PROCEDURE CtfREF] lgsqpen Cv'RR lesiele.file: file? 

35 file_name: string '■'. ♦ •■ ? 

36 status: file_status? 

27 mode: file-mode? 

28 position: file-position,'? 

29 

3 -C L6ZCL0S Closes legible file. > 

31 

33 PROCEDURE CXREF] lG"Close (.legiele.file: file? 

33 disposition: file-disposition.:'? 

34 

35 C L5ZPUT Writes source string as complete line to leg 



IELE FILE, 

o 
Ij 



o 



37 PROCEDURE CkREF] lg»put (legiele_files file? 

33 line: string <■. *■ .:'.:■? 

39 

40 C LbZSET Reads next complete line from legible file, 

41 

42 PROCEDURE CKREF] lG"Get (legible_file: file? 

43 VflR number_of_characters_read: integer? 

44 VfiR line: string < ♦ > ■> ? 
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MODULE show; 

?? SET (LIST := DFF> ?? 

♦CflLLC PXIQTYP 

♦Ci=ll_l_C L.SZOPEN 

♦Ci=ll_l_C l_GZCI_OS 

♦Cfit_l_C LC5ZPUT 

♦ CRl_l_C LS2SET 

♦ CFlt_l_C FZMFlRK 

?? RESET ?? 
PROGRAM main? 
VAR 

l! 1 .. 80? 

NCHflRS! INTESERJ 
MARK: FIl_E_MRRK? 
STR! STRING (16> ? 
OUT! FILE? 

input: file? 
ls«dpen (input? ' input'' ? old"? input*' j hsis"> i 

LS"QPEN (OUT? ''OUTPUT"' i> OI_X'«? OUTPUT"* fl5IS«) i 
LS«SET <INPUT J NCHRRSl> STR) 5 
F"MRRK (INPUT? MFlRK) ? 

WHILE (str Cl> <> ''> y > AND (mrrk = datf^'} DO 

LSSSPUT (OUT J STR (1 5 NCHRRS) > ? 
l_'3"<S-ET (INPUT? NCHFtRS? STR) 5 
F"MRRK (INPUT? MARK.) i \ J 

whilend; 

l_S"Cl_OSE (INPUT? RSIS") 5 
LS"CLDSE (OUT? RSIS«) ? 

PRQCEND main? 
MODEND show. 

.••■SES.GENCOMP SF=I0EX2 CYBCCMN 

♦ GENERATING COMPILE FILE COMPILE 

♦ END GENCOMP COMPILE <- BASE 
■•'SES.CYBIL CC 

♦ COMPILING COMPILE 

♦ END CYBIL COMPILE -> LISTING? LGO 
•- S E S . L I N K 1 7 C Y B C L I B 

♦ END LINK 170 LGOB 
■••LGOB 

? STRING1 

? STRINGS 

? STRINGS 

? END OF STRING 

7 !■• 

STRINGl 

STRINGS 

STRINGS 

END OF STRING 

LGOB. 
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APPENDIX C 
EXERCISES 



V/ 



O 



C-l 



DAY1 



1 . The following list contains several compilation errors. Fix them. 






l 


MODULE ERRORS : 





£ 


TYPE 


♦ERROR* 


^, 


S s ARRAY CI.. FINALS Of 





4 


VAR 


n 


■; 


I : INTEGER. 


♦ERROR* 


r. 


VAR 


♦ERROR* 


i*' 


X : real; 





8 




♦ERROR* 


o 


PROGRAM ERROR-RROC 5 


n 


10 


VAR 


♦ERROR* 


11 


I : 0. . . 99*9* -• 


♦ERRORS 


1? 


ARRAY =S« 





13 




♦ERRORS 


14 


I := 3: 


♦ERRORS 


IS 


X :» 10. OS 


♦ERRORS 


1* 


POP I ■ 1 TO FINAL DO 


♦ERRORS 


ir- 


SCI] ■ I * x; 


i'i 


is 


FOREND 


♦ec-prip* 


l* 


VAR := sen * S [FINAL! S 


n 


?Ti 







?1 


MODEND 



2. Write and compile a program to initialize the following table (named INFO) 
CONST 

LIM * 100? 

TYPE 

REC » RECORD 

NAME: STRING' <10> <• 
AGE: . . **, 
NEXT.OF.KIN: "R£C ' 
RECEND: 



V..y 



VAR 

INFO: ARRAY CI 



LIM] OF REC: 
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^^^iir 



DAY1 
CONT'D 



3. For each of the structures described below, provide the required declarations and code 
needed to perform the specified initialization. 

a. array to contain prices for each of 300 items stocked by a small store. Initialize all 
entries to zero. 

b. array of 26 integers, indexed by the characters 'A' to 'Z' and initialized to all zeros. 

c. 10x10 matrix, initialized to one's on the diagonal and zero elsewhere. 

d. a record containing the following information: 

Name 
Address 

— street # 

— street name 

— city 

— state 

— zip code 

Initialize it to your name and address. 
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DAY 2 

O 



The following problems involve some simple I/O. I/O procedures will be provided in class. 

1 . Write procedures to initialize the structures described in the Day 1 problem #3c and d. 
Print the structures. 

2. A program reads a card and calls a procedure. The procedure catagorizes the 
characters as alphabetic, digit or special. It prints the results. 

3. Write a procedure to convert string to integer. Test it. 

4. Write a procedure which inspects a set of attributes. The attributes are read, write and 
execute. Return normal status unless the set contains write and execute. 

5. Write a function to compute powers of N. When called, the function is provided with two 
parameters: 1) the integer base (e.g. 2) and the integer power (e.g. 10). The function 
should compute base ** power (e.g. 2**10). Test the function. Optionally, make the 
code recursive. 



/ — \ 
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DAY 3 



1. Write a procedure that will remove an entry from a linked list. Use the example from 
class as a base. You will be passed a pointer to the entry to be removed. You must 
restore the linkage and deallocate the entry. 

2. Suppose that an EST (Equipment Status Table) entry is a bound variant record with the 
following fields. 

a. Ordinal of the entry (1 .. 256) 

b. ON/OFF 

c. UP/DOWN 

' d. Pointer to CHT (Channel Table) 

e. Device type 
0= none 

1 = disk 

2 = tape 

3 = CR 

4 = CP 

5 = CP 

6 = Mainframe 

7 = Multiplexer 

This field controls the following variants: 

disk : number of units (n^8) 

tape : number of 7 track drives 
number of 9 track drives 

multiplexor : number of ports (n^256) 

Create a dummy CHT. Create the EST as an array of pointers to EST entries. Allocate 
space for a tape entry. Initialize the fields. 
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DAY 4 Q 



1. Convert the Day 2 problem #2 module so that the procedure accepts an adaptable 
array. The program reads several cards and quits on a blank line. 

2. Establish a sequence. Store some simple records in it. Write it to some file. In another 
module, read the file into a sequence and print it. 



V_/ 



"> 
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APPENDIX D 
PROJECT 






^n^p^ . 
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BLACKJACK RULES 



1 . Dealer deals two cards to player (both face down) and two to self (one up, one down). 
Value of cards are: . 

ACE: 1 or 11 

King, Queen, Jack: 10 

All others: face value 

2. If player has 21 with two cards, player wins double. 

3. Player can get additional cards. If total exceeds 21 , the player loses and the game is 
over. 

4. When the player is through, the dealer can take cards following these rules: 

If total is 16 or under, dealer takes a card. 

If total is 17 or over,, dealer does not take a card. 

5. Now, if dealer's total is greater than 21, player wins. / -~\ 

If player's total is greater than dealer's, player wins. y^y 

If totals are equal, nobody wins. 

If dealer's total is greater than player's, player loses. 
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BLACKJACK 
MODIFICATIONS 



1. Print Blackjack rules on request. 

2. Check all input for validity. If input is wrong, give the player some help and an 
opportunity to resubmit. 

3. Allow multiple plavers. 

a. Allocate me piayer records so they can be referenced by pointer. 

b. Give additional player a chance to start at the beginning of each round. 

c. Give players a chance to quit after each round. 

4. Allow players to split pairs. 

If the player has a pair, he or she may get additional cards for each pair. It is like 
playing two hands at once; they are won and lost separately. Be sure that the player 
has enough money left to do this. 

5. Allow player to double down. 

If the player has a total of 9, 1 0, or 1 1 with two cards, he or she can double the bet and 
take exactly one card. Winning and losing is evaluated as usual. 



o 
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PARTICIPANT INFORMATION FORM 



In order for our seminars/courses to be most effective, they need to take into account the 
J' characteristics, needs and objectives of the people who attend them. The information asked 

for below will assist us in keeping our presentations relevant to the participants and in devel- 
oping and scheduling new presentations that will meet participant needs. Please complete this 
form and leave it with the presenter at the next break. 



Seminar/Course Title Date of Presentation 



c 



Name Field or Type of Business 

Title Years of Experience 

Business Address Supervisor's Title 



Last professional degree 



List your three primary objectives in attending this seminar. 

1. 

2. 

• 3. 



Will this course/seminar be credited toward certification/training requirements? 



Rank in order of importance in your choice of this seminar session. . 
Instructor Date Location Employer's Preference 

Previous courses/seminars attended relating to this topic. 



1. 

2. 
3. 



Topics for additional courses/seminars in which you would be interested. 



1. 

2. 
3. 



PARTICIPANT INFORMATION FORM 
Page 2 



What trade journals/magazines do you regularly read or subscribe to in order to keep abreast 
in your profession? 



1. 

2. 
3. 



How did you become aware of this course/seminar? 
Schedule/Catalogue , 

Direct Mail Brochure , 



Recommendations of Supervisor 
Recommendation of Colleague _ 
Corporate Training Department . 
Other 






c 



J 



COMMENT SHEET 






MANUAL TITLE: NOS CYBIL 
PUBLICATION NO.: DA3800-1 
NAME: 



REVISION: B 



COMPANY: 



STREET ADDRESS. 
CITY: 



.STATE: 



.ZIP CODE: 



This form it not intended to be used a* an order blank. Control Data Corporation welcome* your evaluation of 
this manual. Please indicate any errors, suggested additions or deletions, or general comments below (please 
include page number references). 



o 



Oi 
2 i 
Oi 



3 
U 



< 
in i 
3 j 

z' 



Zj 

<* i 






< 

< I 



NO POSTAGE STAMP NECESSARY IF MAILED IN U.S.A. 

FOIO ON DOTTED UNfS AND STAW6 



STAPLE 



STAPLE 



FOLD 



FOLD 




NO POSTAGE 

NECESSARY 

IF MAILED 

IN THE 

UNITED STATES 



FIRST CUSS 



BUSINESS REPLY MAIL 

PERMIT NO. 8241 MINNEAPOLIS, MINN. 



POSTAGE WILL BE PAID BY 

CONTROL DATA CORPORATION 

National Coordinator 
Bloomington Facility (MIMA02B) 
5001 West 80th Street 
Bloomington, Minnesota 55437 




FOLD 



FOLD 



OV- 






A/0S>/<-WC PAY I NR B. 

•-COPY!. LISTING 



1 SOURCE LIS 


TING 


OF MDDl NOS 


CYBIL^CC 1 


. 8209 < 




> JUNE 16> 1982 £:ll PM PAGE 


1 







1 


MODULE MODI.: 




3 


CONST 







4 


lim = ioo; 







5 









6 


TYPE 







i"' 


REC = RECORD 







;Z; 


NAME: STRING CI 0> > 







9 


AGE: .. 99 j 







lb 


NEXT-OF-KIN: A REC» 




L"l 


ll 






o 


12 


recend; 







13 









14 


VAR 







15 


INFO: ARRAY CI .. LIM] OF REC : = CREP 


LIM DF C", 


On NIL]]; 











16 









17 


PROGRAM MAIN? 







13 






630 


19 


PRDCEND MAIN; 




630 


♦♦♦♦ NO 


20 


MDDEND MODI; 




D I FU- 


iNOSTICS 




EDI ENCOUNTERED. 






NG 


CR Ml MirP\l\TF V r RSI0r; 




■••-COPY? LI ST I 






1 SOURCE LIS 


TING 


OF MDDl NOS 


CYBIL-'CC 1 


. 8209 '.. 




> .JUNE 16 j 1982 2:44 PM PAGE 


1 



1 MODULE MODI; 

2 

3 CONST 

4 LIM = IOO; 

5 

6 TYPE 

7 REC = RECORD 

8 NAME: STRING CI 0> , 

9 AGE: . . 99? 

10 ne:*:t_df_kin: - x rec> 

11 recend; 

12 

1 3 VAR 

14 INFO: ARRAY CI .. LIM] OF REC; 

15 

16 PRDGRAM MAIN? 

17 

630 18 VAR 

630 19 I : INTEGER; 

630 20 

630 21 FOR I := 1 TO LIM DO 

635 22 INFO CI]. NAME := " ; 

646 23 INFO CI]. AGE := Or 

652 24- INFO CI] . NEXT-OF-KIN := NIL; 

657 25 FOREND; 

662 26 PRDCEND MAIN; 
662 ■. 27 MDDEND MOD1J 


♦♦♦♦ NO DIAGNOSTICS 
EOI ENCOUNTERED. 



DAY lj NR 3a . 

•••-SES. CVBFORM THREEfl 

REVERT. END CVEFORM THREEfl 

••'SES. C VEIL I -THREEfl CC 

♦ COMPILING THREEfl 

REVERT. END CVEIL THREEfl -> LISTING, LGQ 

-'REWIND j LISTING 

REWIND:. LISTING. 

--■COPY , LISTING 

1 SOURCE LISTING OF THREE_fl MD --- CVEIL -TT i 

■° 8209 < > .JUNE 16, 1982 4:09 PM PAGE 1 ' ' 

1 MODULE THREE. A.? 







c 



3 TYPE 

4 ITEMS = ARRAY CI .. 30 01 OF PERL; 

5 

6 VflR 

? PRICES: ITEMS := CREP 300 OF n. nj 8 

3 

9 PROGRAM MAIN; 

464 10 PROCEND MAIN; 

464 11 MODEND THREE_A; 



ij 



♦ ♦♦♦ NO DIAGNOSTICS 
EOI ENCOUNTERED. 



■•"SES. CVBFORM THREEA1 AN ALTERNATE VERSION. 

REVERT. END CYEFORM THREEA1 

.-'SES. C YE I L I = THREEA1 CC 

♦ COMPILING THREE A 1 

REVERT. END CVEIL THREEA1 -> LISTING. LRQ 

■REWIND, LISTING 

REWIND, LISTING. 

•••'COPY, LISTING 

1 SOURCE LISTING DF THREE_A1 ND --- r.YKlLT.r 1 

•'-' 8£09 C > JUNE 16 , 19S£ 4S1? pM p fl( _ E j - ' 

1 MODULE THREE. Ai: 

2 

3 TYPE 

4 ITEMS = ARRAY CI .. 300] OF REAL; 

5 

6 VflR 

7 PRICES: ITEMS," 
8 

9 PROGRAM MAINS 

10 

465 1 1 VflR 

465 12 i: INTEGER," 

465 13 

465 14 FOR I := 1 TO 3nn DO 

472 15 PRICES m := 0. n; 

477 16 FOREND; 

502 17. PROCEND MAIN,' 

502 IS MODEND THREE-.fi i; 

, 

♦♦♦♦ ND DIAGNOSTICS 
EDI ENCOUNTERED. 



.-•SES.CYBFDRM THREEB DAY Ij NR 3b 

REVERT. END CYBFDRM THREEB 

--SES. CYBIL I=THREEB CC 

♦ COMPILING THREEB 

REVERT. END CYBIL THREEB -> LISTING* LGD 

•■'REWIND.. LISTING 

REWIND;. LISTING. 

.■-COPY > LISTING 

1 SOURCE LISTING DF THREE-B NDS CYBIL--CC 1 

. 88 09 < > JUNE 17. 1982 9:54 AM PAGE 1 



. . -z--] DF integer; 

i = CREP £6 DF 01 ; 









1 
4 


MODULE THREE-B ; 

TYPE 

VECTOR = ARRAY C'A 






6 
7 


VAR 

CHAR-CDUNT: VECTOR 


o 

42 
42 


9 
10 
11 


PROGRAM MAIN? 

PROCEND MAIN; 

MODEND THREE- E; 







♦♦♦♦ NO DIAGNOSTICS 
EDI ENCOUNTERED. 



ALTERNATE VERSION 



.-•GET » THREEB 1 

.-SES.CYBIL I=THREEB1 CC 

♦ COMPILING THREEB 1 

REVERT. END CYBIL THREEB 1 -> LISTING? LGO 

.-•REWIND * LISTING 

REWIND- LISTING. 

■••COPY. LISTING 

1 SOURCE LISTING OF THREE-E1 NDS CYBIL-'CC 1 

. 8209 < > JUNE 17. 1982 10:16 AM PAGE 1 



"Z'D of integer; 



9 < 




> JUNE 17. 1982 


ij 


1 


MODULE THPEE_Ei; 


1.1 




c! 


TYPE 







4 


VECTOR = ARRAY C'A' 


& 


VAR 





7 


CHftR_COUNT : VECTOR ; 





i~i 







9 


PROGRAM MAIN; 





10 




42 


11 


VAR 


42 


12 


ch: char; 


42 


13 




42 


14 


-■LAEEL-1.-- 


46 


15 


FDR CH := 'FT TD '2 


50 


16 


CHAR_COUNT CCH] : 


54 


17 


FOREND ---LABEL- 1-'-; 


54 


18 




57 


19 


PROCEND MAIN? 


57 


20 


MODEND THREE-B i; 



DD 

o; 



o 



♦♦♦♦ ND DIAGNOSTICS 
EDI ENCOUNTERED. 
-BYE 



DAY E; NR 3 

/ COPY , Vtf SVj£ — 

MODULE dav_2_2? 

?? SET (LIST := OFF) ?? 

■frcallc pxiotvp 

*callc lgzopen 

*callc lgzclos 

•*callc Igzput 

#callc lgzget 

#callc fzmark 

?? RESET ?? 

VAR 

codes: array CI . . 803 of string (10), 

inf i 1 ei 

outfile: file, 

in_string: string (80), 

length: integer* 

i: integer? 

PROGRAM main? 

lg*open (infile, 'INPUT', old*, input*, asis*)S 
lg*open (outfile, 'OUTPUT", old*, output*, asis*); 
1g*get (infile, length, in_string)5 
FOR i := 1 TO length DO 
CASE in_strir.g (i) OF 
= 'A' .. "Z", "a" .. "z" - 
codes C i 3 := -'alphabetic'' 

— ••* f\ * s O •** — 

— *-' m m y "~~ 

codes C i 3 := "digit', 
= '!' .. "/", ':' .. '©", "C" ■• ' w » '*' ■• '""' 

codes E i 3 := 'special'; 
CASEND; ' 
FOREND; 

lg*put (outfile, in_stririg) ; 
FOR i := 1 TO length DO 

lg*put (outfile, codes C i 3 ) ; 
FOREND; 

lg*close (infile, asistt); 
lg#close (outfile, asis*); 
PROCEND main; 
MODEND dav_2_2; 
ECU ENCOUNTERED. 

/* ;\ji iH t I. 1. *-• *— 



/ses. gencomp sf=test2 cvbccmn 

* GENERATING COMPILE FILE COMPILE 
-REVERT. END GENCOMP COMPILE <- PDGWORK 

/ses. cvbi 1- cc 
• * COMPILING COMPILE 
•REVERT. END CYBIL COMPILE -> LISTING, LGO 

/■£ e s •■ 1 i n k 1 70 c vb c 1 i b 
•REVERT. END LINK170 LGOB 

/I Sob 

? abcl23/*@ghi 

abcl23/*@ghi 

al phabetic 

al phabetic 

alphabetic 

digit 

digit 

digit 

special 

special 

special 

al Phabetic 

al phabetic 

alphabetic 

LGOB. 

/ 



day 2-.=jlj|=2 {using NOS/VE> 



^•EIRF 

Welcome td NDS^VE R00 1.11.17'IR. Mrrch 7* 1983. 7:29 Pit. 
Processing; system prdlds. 

SYSNDTE UPDATED 83/03^07 14.10 PM. 

SEE SYSNDTE UNDER UN = LIBRARY. 
Process ins user ptolds. 
►^getf dry22 

/'CQPF DRY22 
MODULE DRY2-25 

oo 

♦copy iodcl 
OO 

PPOSRAH MftlN* 
U-ftR 

C 5 CHRR* 
I : INTEGERS' 
LNG • INTEGER* 

NBLRNK* NLETTER* ND I GIT * NOTHER 5 INTEGER* 
LftST_CftRD ! BOOLERN* 
FOPEN* 

OMSG := " TYPE IN UP TO 80 CHRR WHEN PROMPTED" J 
RMP$PUT_NEXT<OFID» A DMSG»ttSIZE<OMSG> *OFBA*STRT> * 
OMSG S= " R BLANK LINE WILL END PROGRAM"? 
AMP$FUT_NEXT <OF I D » ' x OMSG * ~S I ZE <OMSG> * OFB A* ST AT> 5 
OMSG S= " ft CR WILL DO ftS WELL"? 

RMPSPUT_NEXT<OFID» A OMSG»ttSIZE<OMSG> *OFBR»STftT> * 
LRST-CftRD != FRLSE* 
/LDDP/ 

WHILE NOT LRST-CftRD DO 

RMP$GET_NEXT<IFID!» /X IMSG»«SIZE<IMSG> »ITC* IFBA* IFFOS*STAT> 5 
IF ITC = THEN 

EXIT /LOOP''? 
I FEND? 
STRINGREP<OMSG*LNG* ' "*ITC!3* 

" CHARACTERS RERD OF WHICH RRE ">* 

RMpSpUT-NEXT (.OF ID* a DMSSjSSI2E Comsg> *OFBA* stat) * 
NELANK != 05 
NLETTER S= 0? 
NDIGIT := 0? 
NOTHER S= 05 
FOR I != 1 TO ITC DO 

c := imsg<i>* 

CRSE C OF 

NBLANK := NBLANK+1* 

NDIGIT := NDIGIT+1* 
="R'..'Z'= 

NLETTER S= NLETTER+1 * 
='R'..'Z'= 

NLETTER S= NLETTER+1 » 
ELSE 

NOTHER '- NOTHER+1* 
CRSEND* 
FOREND* 



STRINGREP (OMS6»LN6> ' ' 9 NBLANH: 3» ' BLANKS" S 35) 5 
ftMP$FUT_NEXT(DFI»» A DMSS»ttSIZE(OMSG) »OFl«»STftT) ? 
STRIN6REF (OMSG»LNS> ' " » NLETTERS 3» ' LETTERS' S 35) ! 
ahfSput_nex T (OF I S r a OMS6 » «S I ZE (qhss) »DF1«?STAT) 5 
STRINGREP (DHSGyLNG*' " P NDIGITS 3» x DIGITS'' ! 35> J 
ftMP$FUT_NEXT (DF I B » A OMSS » «S I ZE <OMSS) » DFlftf STRT) ? 
STRINGREP <DHSG>LNG*' '»NOTHERS3»' OTHER CHRRRCTERS ' ! 35) 5 
RMF$PUT_NEXT<DFID> "OHSG* »SIZE <OMSG> »0FDB»STRT) 5 
IF ITC = NBLRNK THEN 
LftST_CftRr := TRUE? 
I FEND* 
WH I LEND J 
FCLOSEJ 
PRdCEND HRIN? 
MDDEND DHY2_£5 
/SETF BUILD 
''CDPF BUILD 
FRQC BUILD < 
I NFUT » I NF » I ! F I LE=SREBU I RED) 

if Spile (exerc? ASSIGNED) THEN 

DELF EXERC 
I FEND 
IF NDT $FILE (SVRLUE (INPUT) JftSSISNEC) THEN 

GETF Sl/RLUE < I NFUT) 
IFEND 

CDFF Si/RLUE< INPUT) EXERC 
IF $F I LE < I ODCL ASSIGNED) THEN 

DELF IODCL 
IFEND 
IF $F I LE<COMP» ASSIGNED) THEN 

DELF CDMP 
IFEND 
IF NOT $F I LE < I ODECL* ASSIGNED) THEN 

GETF IODECL 
IFEND 
CRESL 

scu b=result r=tdcl 
cred d=iddcl s=iodecl h=rodcl 
cred d=exerc s=exerc h=exerc 

expd d=exerc c=cdmp rb=$s ysteh. dsf$prdgrah_ interface-library 
end wl=false 
frocens build 
.''getf iodecl 
/cdpf iddecl 

?? set(list:=dff) ?? 
♦cdpyc rhpsopen 

♦CDPYC AHPfCLOSE 
♦CDPYC AHF$GET_NEXT 
♦CDPYC AHP$PUT_NEXT 
?? RESET ?? 



o 

t/RR 

ITC ! RMT$TRRNSFER_COUNT» 

IFPQS : RWT$FILE-PDSITIDN» 

IF>A»QF1A : RMT$FILE_BYTE_RDDRESS> 

ILFN»OLFN ! ftMT$LDCfll — FILE-NRHE* 

IFID»OFID ! RMT$FILE_IDENTIFIER» 

IHSG ! STRING <!80> > 

OHSG S STRING <40>* 

STRT I OST$STRTUS> 

IRTTR-P>DftTTH_P : RHTSfILE-RCCESS-SELECTIDNS* 

O 

PROCEDURE FDPEN? 

RLLOCRTE IRTTR-P ! CI.. £3 5 

IRTTR_F' X C13 -KEY := RMCSrCCESS-MODE; 

IRTTR_P ,%, C£3 .KEY S= ftMC$aPEM_PaSITIDN> 

RLLOCRTE ORTTR-F • [1..23? 

DftTTR-P^ClJ.KEY := ftHC$ftCCESS_MnrE» 

DftTTR-P' -LZ1 . KEY := ftMC$DPEN_PDSITIDN? 

ilfn := 'Sinput'5 

IRTTR_P' v C13.RCCESS_MDrE := $PFT$USftSE_SELECTIDNS LPFCSRERDJ » 
IRTTR_P A C£3 .DPEN.PDSITION := RHC$OPEN_RT_BOI J 
AMPSoPENCiLFNjRHCSrECORD* IRTTR-P* IFID»STRT> 5 

dlfn := Ioutput'? 

CJRTTR_P' S [1J . RCCESS-MDI.E : = $PFTSuSRGE_SELECTI ONS LFFCSRPPENDJ » 
DftTTR_P A l£3 . OPEN.PQS I T I DN S = RMCSOFEN-RT-EO I ? 
RMPSOFEN (OLFNj RMC$RECORD f ORTTR_P» OFI D> STRT> 5 
D MSG := " STRRT DF PRDGRRH'? 

flMP$PUT_NEXT(DFIB» A nMSS»«SIZE(DMSG) »DFlft»STftT> » 

PROCEND FDPEN J 

a 

PROCEDURE FCLDSEJ 

OMSG 1= ' END DF PRDSRftM'5 

pmpSput.next (dfid* a ohss» «size (nnse) »of»r»strt> ; 

RMPSCLOSE < I F I D t STRT> f 

rmp$close<ofid»strt> i 

PROCEND FCLOSE? 

o 

w»/'5ETF GO 
/COPF GO 
PROC GD 
WHEN PROGRRM-FRULT DO 

DIS^-' DSU"$STRTUS 

COPF L 

CRNCEL PROGRRM-FRULT 

EXIT-PROC 
WHENEND 

if $file<»»rssigned> THEN 

DELF » 
I FEND 
IF $FILE<:i_»RSSIGNED> THEN 

DELF L 
I FEND 
CY»IL I=COMP L=L B=» 

DELF COHP 

CANCEL FRQGRRH-FRULT 

PROCEND GO 



S^ ''BUILD DAY££ 

' — WARNING SC 620314 — Library fdrmrt version mismatch dn file :$SYSTEM.SSYSTEH. 
QSFSPROGRAM- INTERFACE-LIBRARY. 1 . 



'GO 

STftRT DF PRDGRftM 

TYPE IN UP TD 30 CHAR WHEN PROMPTED 
A BLANK LINE WILL END PRDSRRM 
A CR WILL DO AS WELL 

? a fl b>*+<MN65432»$5<&''fadstgefdkkj09LLLLL haha 

45 CHARACTERS READ OF WHICH ARE 

3 BLANKS 
£6 LETTERS 

7 DIGITS 

9 OTHER CHARACTERS 
?' A » 1 

4 CHARACTERS READ OF WHICH ARE 

1 BLANKS 

1 LETTERS 

1 DIGITS 

1 OTHER CHARACTERS 

J CHARACTERS READ OF WHICH ARE 

1 BLANKS 

LETTERS 

DIGITS 

OTHER CHARACTERS 
END OF PROGRAM 
''LOGOUT 

Processing user epilog. 

Processing system epilog. VEIAF CONNECT TIME 00.05.03. 

ILLEGAL APPLICATION* TRY AGAIN. 

T13A05 - APPLICATION: bye 

LOGGED OUT. 

HOST DISCONNECTED CONTROL CHARACTER=CESC> 
ENTER INPUT TO CONNECT TO HOST 



DAY A ^4- 



REWIND, LISTING. 

/copy, 1 istin£ 

1 SOURCE LISTING OF 



( 



) 



daY_2_4 



June 9, 1982 



NOS 



CYBIL/CC 1.0 8213 



4:15 PM 
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1 MODULE dav_2_4? 

PROGRAM main? 

TYPE 

status-record = record 
case normal: boolean of 
= TRUE = 

= FALSE - 

message: string (30), 

casend, 
recend, 

modes = (read-access, write_access, execute-access ), 
mode_set = set of modes: 

VAR 

set-modes: mode-set* 

out: file? 

status: status-record? 

PROCEDURE inspect <current_mode_set: mode_set? 
VAR status: status-record) J 
IF current_mode_set = *mode_set Cwrite-access, execute-acc 

status. normal := FALSE? 

status. message := '**ERROR«* Modes set to write and exec 

RETURN? 
ELSE 

status. normal := TRUE? 
IFEND? 
PROCEND inspect? 

set-modes := *mode_set Cuirite-access, execute_access3? 
l3#open (out, 'output', old#, output#, asis#>? 
inspect (set-modes, status)? 
IF NOT status. normal THEN 

ls#put (out, status. messasEe)? 
ELSE 

ls#put (out, 'Modes set properly')? 
IFEND? 

Isttclose (out, asis#); 
PROCEND main; 
82 MODEND dav_2_4? 



**## NO DIAGNOSTICS 
EOI ENCOUNTERED. 



ses. Sencomp sf=test3 CYbccmn 

GENERATING COMPILE FILE COMPILE 

EVERT. END GENCOMP COMPILE <- PDGWORK 

ses. cvbil cc 

COMPILING COMPILE 

EVERT. END CYBIL COMPILE -> LISTING, LGO 

■ses.linkl70 cvbclib 

EVERT- END LINK 170 LGOB 

Islob 

#ERROR** Modes set to write and execute 



REWIND** 

5 FILES PROCESSED. 
.■■■•CDPY*hYD£EX5 
MODULE DEEX5; 

flLLC PXIDTYP 

PLLC LGZDPEN 
♦CRLLC LGZCLDS 
♦CRLLC LG2PUT 
♦CRLLC LGZGET 
♦CRLLC FZSRBF 

?? RESET ?? 



DAY 2'-, NR. 5. 



FUNCTION POI...iER CX* 

Y: INTEGER;-: INTEGER; 
IF X = 1 THEN 
POWER : = 1 i 
ELSE IF Y = 1 THEN 

POWER := X; 
ELSE 

POWER : = X ♦ PQIitER (X* V 
IFEND* 
FUNCEND POWER? 

PROGRfiM B3EX5* 



VHR 






ST* 






STR: 


STR INC 


? (i£) 


CPHr': 


CHRP* 




NUN* 






K* 






I* 






J- 






L* 






N: IN 


TEGEP* 




NRRK: 


FILE. 


.MPRK* 


I NPUT 


* 




OUT: 


file; 





LG^GPEN COUT* •OUTPUT- i. OLD-, QUTPUTtt, fl;q5:;!) i 

f-sref (.out;-; 

lg-put (out;. -enter integer erse ' ' > 5 

lb-dpen a nput;. -'input- * old-* input-- rsis*^* 

lg^get (input* nun* str::'* 

I : = * 

FOR J := 1 TO NUN DO 

I := 10 ♦ I + ($INTEGER (STR cj>> - :}. INTEGER c" ft ■':.::. ; 

forend; 

lg«put (out* -enter integer power-'::' ? 

LG«6E7 a NPUT* NUN* STR> * 

K : = * 

FOR J := 1 TD NUN DO 

K := 10 ♦ K + (.^INTEGER CSTR (. J> > - SINTEGER C ' ' > > ; 
FOREND* 

N := POWER a* K>* 
STRINGPEP (.ST* L* N> * 
LGttPUT COUT* ST> * 
LG-CLDSE COUT* PS IS-;' * 
LGifCLDSE (INPUT* RSIS-.:' * 
PRDCEND D3EX5* 
MDDEND DEEX5* 
EDI ENCOUNTERED. 
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A START TO THE BLACKJACK PROBLEM 



UfBILVUU VI. 79071c' SDURCE LISTING - BLflrKj fl r K 

79- 1 0- 01 1 1 : 47 : 1 5 PR6E 1 
1 
£ MDHULE BLflCKJftCKJ 

? SET -'.LIST := DFF> ?? 
38 ?? RESET ?'• 

CONST 

C«MftX_flMDUN,T = lOOOU? 

TYPE 

TSPLftVER = RECORD 

name: stpin'j ■:. 1 u) » 

ftMDUNT." . . C"MFt;<_AMDUNT» 
EET! . . C«MflX_f=lMDUNTj 

total: . . 3 On 
alt_totfil: .. 4 1» 

BLFiCK-JFiCK: £DOLEFir-l« 
LAST-CARI': STRIN'3 (,tO t 
PECENIi? 

T^I'EALER = PECDPTi 

tdtal: . . c'b» 
rlt.tdthl: . . 3b 5 

LAST_CARI>! STRING t.5> « 

RECENIm 

T«MHD = <ALLJ TD-RLfiYER) TD_I'EfiLER> J 

T«MESSA«SE = (M_NftME J M_BET) M-CDNTINUE! H_HIT) M_riEALER_CAPr> 
M-PLAYER-CAPE* M_r<EALER_Hir'I'EN_CAPi:"< M_SieNDFF< M_SHUFFLE< 

VHR 

dealer: t^dealep : = LU« 0? 'D « 

player: tsjflayep := L' ' < 1000? 0« 0* 0? FBLSEx ' ■ J > 

INP! FILE? 
DUT! FILE* 
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CYBIL^CC VI. u 79071c; SL1UPCE LISTING - bl.hckjr.~k 

?y- 1 'J- u 1 1 1 : 4 7 : 1 5 PhGE 8 

71 PRD6PHM MhiNi 

78 

366 73 VHP 

366 74 FiPST-Pfiss: CSTRTlL] boolean := TRUE* 

366 75 names string >:3u'> j 

36b 76 CONTINUES STRING '.y0>» 

366 77 samduht: string (8u) » 

3*6 78 decision: string ^ y U :■ ? 

366 79 

366 80 OPEN-FILES? 

374 81 WRITES (,M_NAME> ? 

376 82 PEfiBS (name; 1 ? 

40c' 83 PLAYER. NAME S= NAME '. 1 ? 1 G.> ! 

4U2 84 

4U4 85 /play/ 

404 86 REPEAT 

4U5 87 WRITES (.M_AMDUNT.'J ? 

407 88 IF NUT first.pass THEN 

410 89 writes (m_cdntinue)j 

418 90 reads (continue; 1 ? 

416 91 I F c o n t i n u e •:. 1 > ' v " THE N 

416 98 EXIT --'fl-At ■'•' 

481 93 I FEND; 

422 94 ELSE 

483 95 first_pass := FRLSE5 

483 96 I FEND? 

484 97 writes <m_bet) i 
486 98 reads <samdunt> ? 

438 99 CDN'/ERTSI (SAMDUNT) player.eet) ! 

437 100 IF ( (PLAYER. BET > PL AVER . AMOUNT.:' UP '.PLAYER .BET <. \>> THEN 

4 3 7 1 U 1 E X I T ••- FLA V .-■• 

448 108 I FEND? 

448 1 03 

443 1 04 deal (all) 5 

445 105 IF (player. alt_total = 21) THEN 

446 106 player. black- jack 1= true? 
44 7 1 07 resoh-'e; 

451 108 CYCLE .•■•play.--; 

458 109 I FEND? 

458 1 1 

458 111 -'DECIDE- 

458 118 WHILE (player, total ■<= 21> DQ 

453 113 writes (m-hit)! 

456 114 reads (decision; 1 ; 

4*8 U5 IF decision U> = 'V THEN 

4*5 116 DEAL (.TD-FLA-. ER> 5 

467 117 ELSE 

47 U 118 EXIT ••••r-EC IDE--? 

471 n* ihend; 

471 180 MH1LEND .DECIDE--; 

4f8 lc'l PESOL'-'E? 

4 7 2 1 C' i_' ': FLA v y 

4 73 lc'3 UM1IL • PL At ep. amount <:.= U.> ! 

475 184 writes « ri_siGNOFF,' ; 

4.-7 185 CLa.-E_FIL.Efi 

5 i.i i.i 18* PPt'lCEHli main; 

50 M lc'7 '■> EJECI !-■■■• 



■J-aeWTi-m-JI"". 



, , CYflL-CC VI. 79071c' SDURCE LISTING - FLACKjftCK 

79- 1 0- 01 11:47:15 PR6E 3 
5u0 lc'8 

500 lc'9 PROCEDURE dpen_filesS 

50c" 130 LS"DFEN '. INFj 'INPUT' J DLD"' INPUT«! ASIS«.) f 

514 131 LG"OFEN '..OUT? 'OUTPUT'* DLD»* OUTPUT*? ftSIS".' i 

5c'ci: 13c' f"sabf <.dut.> ? 

5c'4 133 PROCEHD open.files; 
5£4 1 34 

5c' 4 135 PROCEDURE cldse.filesj 

5c"6 13fc LG"CLDSE (INF) PiSIS")! 

534 137 LG«CLOSE (OUT» ftSIS«) ? 

53b 13S PRDCEND cldse.files ? 
536 1 39 

536 14 PROCEDURE reads CVRR s: string •:. ♦ > > ? 

536 141 

540 14c! VRR 

54 143 length: integer? 

54 1 44 

54 145 s U? 10.' : = "' "' ? 

556 146 lg^get <inf? length? s) ? 

565 14 7 PRDCEND reads! 

565 148 

565 149 PROCEDURE writes (mss.type: t«message.> ? 

565 1 5 

567 151 VRR 

567 15£ s: string <.4 0> ? 

567 153 l: 1 .. 80! 

56 7 154 

567 155 s := ' '' ? 

567 156 

60 157 CRSE msg_type DF 

600 158 = M_NAME = 

617 159 LG"FUT (DUT< " UlHAT IS YOUR NRME?'') ! 

6c'4 160 = M_ AMOUNT = 

625 161 LG"PUTFART (OUT) FRLSE? ' YOU Hfil-'E J- ' > 5 

63c" 16c" STRINbREP <s> l? plfiyer.rmount)! 

643 163 LG"PUTFART (.OUT? TRUE? s> ? 

65 164 = M_BET = 

651 165 LG"FUT (.dutj 'Hon much do you want td bet?'.:'? 

656 166 = m_continue = 

657 167 lg"fut (out » do you want to continue?".*? 

664 168 = m_hit = 

6b5 169 LG"FUT t.DUT? "' Do YOU WANT ANOTHER CARP '*. ' > ? 

67c" 170 = M_SIGNOFF = 

673 171 lG"FUTfapt (out? FRLSE? 'Thanks for flaying blackjack? " .:• ? 

70 17c." lG"FUTFapt (out? TRUE? player, name.:' ? 

700 173 

705 174 = M_PLAYER_CARD = 

70b 175 lG"Futfapt '-out? FRLSE? "Your card ' > ? 

713 176 lG"Futfart 'out? 7 RUE? player, last-card; 1 ? 

7c'0 177 = M.DEALEP-HII'DEN.CftPD = 

7c' 1 178 lG"Put 'dut? Dealer card hiI'IiEN") i 

7£t. 1 79 = m-I'EAlep.Cmpd = 

7£'7 180 L'5"PUTpmpt (out< FRLSE? 'Dealer card " : ' ? 

734 181 lG"Putfapt '.out? TRUfc? dealer, last.carb, 1 ? 

741 18c' = M_SHUFFLE = 

74c' 183 i_G"Put '.out? Shuffling capps' •■ ? 

C Y E: I L. .-•' L C V 1 . i..i 7 9 i'i 7 1 c' S U F L E L. 1 I T I N • => - f l a c ►- J a c f 

79- I u- Ml 11:47:15 PRbE 4 

74 7 184 L Hi EM' J 



UYfclL'CC VI. 790/12 SOURCE LI ST I Mb - blackjack 

7'9- 1 0— til 1 1 : 4 , ? : 1 5 PflbE 5 

750 187 

75 U 188 PROCEDURE resdlve? 

75E" 189 IF PLftYEP.ELRCK_JflCK THEN 

757 190 PLflVEP.ftMDUNT != F LRYEP. . RMDUNT + £ ♦ PLftVER. EETJ 

763 191 PLflYER.ELACK_JACK i= FALSE* 

P64 19S return; 

765 193 I FENDS 

765 194 IF PLfiYER.rtLT.TDTRL <= £ 1 THEN 

766 195 PLftYER.TDTAL != PLAYER . ALT..TOTAL ? 

77£ 196 I FEND? 

773 19P IF PLAYEP.TDTfiL > d 1 THEN 

774 198 PLAYER. ftMDUNT '• = PLAYER. AMOUNT - FLAYER . BET 5 

luui 199 return; 

1002 £00 i fend; 

1 £ £ U 1 •••' DEALING '•' 

10 0£ £0£ WHILE dealer. tdtal < 17 DD 

1003 £03 CASE dealer. alt.tdtal DF 
10u3 £04 = . . 16 = 

10l£ £05 DEAL ':.TD_DEALER> J 

1014 £06 = 17 .. £1 = 

1015 £07 DEALER. TDTAL != DEALER. ALT-TOT AL 5 

lOh'O £08 EK1T /uealins/j 

1U££ £09 = ££ .. 31 = 

10£3 £10 CHSENIt; 

10£4 £11 WHl LENB .-dealing.' 5 

10£5 £l£ IF dealer. total > £1 THEN 

1 0£6 £13 PLAYER. AMOUNT != PLAYER . AMOUNT + FLAYER. BET? 

1033 £14 ELSE 

1033 £15 ; 

1034 £16 IF DEALER. TDTAL > PLAYER. TDTAL THEN 

1035 £17 PLAYER. AMOUNT 1= PLATER. AMOUNT - PLAYER. BET? 

104£ £18 I FEND; 

1043 £19 IF DEALER. TOTAL < PLAYER. TDTAL THEN 

1044 ££0 PLAYER. AMOUNT := PL AVER . AMOUNT + PLAYER. BET ; 

1U51 ££1 1FENDS 

105c: ddd lFENit; 

105£ dd3 PRDCENIt resolve! 

105£ ££4 ?? EJECT ?? 
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1 052 
1 052 
105c: 
1 054 
1 054 
1 054 
1 054 
1 054 

1 054 
1 054 
1 054 
1 075 
1116 
1122 
1123 
lie' 3 
1124 
1131 
1154 
1157 
1161 
1161 
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SOURCE LI ST IMG - blrckjack 
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PROCEDURE concerts! «.s: strins < ♦ >? 

VHR r: . . C"M(=l>:_fiMDUNT> 5 

VHR 
p» 
i : . . 8 u » 

tens: integer? 

bisitset: CSTRTIC3 set df ' 0- .. 



b' * ' f ' j 



- 9 ••' : ; 



9- := [-0- 



l'j 



p : = i j ; 

l.ihlLE s (p + I;. IN disitset DO 

p : = p + 1 ; 
WHILEHU; 
tens : = 1 j 
i=i := u; 
FDR i := p DDI..IH7 1 DD 

(=,:=■=! + tens ♦ <:.DRD <s <!>':> - DRD <- ' > .:■ j 
tens := tens ♦ 1U? 

forenk; 

RROCEHD cdni-'eptsi ? 
? EJECT ?■? 
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1£71 
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11:47:15 PRGE 



PROCEDURE deal <w: t«whd.) ? 



SOURCE LISTING - blackjack 



VRR 

VALUE! 1 



io; 



CRSE w OF 

= ALL. = 

ijETCAPD (VALUE? PLAYER. LAST — CARD.> ! 

t 

WRITES '.M-PLAYER-CARD.J 5 
PLAYER. TDTAL != VALUE? 
IF VALUE = 1 THEM 

PLAYER. ALT-TDTAL S= ll? 
ELSE 

PLAYER. ALT-TOTAL := VALUE? 

IF EMU? 

SETCARIi (i-'ALUE) DEALER . L AST_C APIO ? 
WRITES (.M_DEALER_CAPD) ? 
DEALER. TOTAL := VALUE? 

IF value = 1 THEN 

DEALER. ALT-TOTAL != 11! 

ELSE 

DEALER. ALT.TDTAL != VALUE? 
IFEHU! 

DEAL (TD-F-LAYER) ? 
DEAL t.TD-DEALER) ? 
= TO-PLAYER = 

GETCAPD '-.VALUE J PLAYER . LAST-CARD.- 1 ? 
WRITES (.M_ PLAYER— CARD) ? 

PLAYER. TOTAL := PLAYER. TDTAL + VALUE? 
PLAYER. ALT.TDTAL 1= PLAYER. ALT-TDTAL + VALUE? 
IF (.VALUE = 1> HND ^.PLAYER. ALT-TDTAL <= 11) THEN 

PLAYER. ALT-TOTAL != PLAYER . ALT-TOTAL + 10! 
IFEN1«? 
= TO-DEALER = 

GETCAPD (.VALUE* DEALER . LAST-CARD •' ? 
WRITES '•M-DEALER-CARD.:' ? 

DEALER. TDTAL != DEALER. TDTAL + VALUE? 
DEALER. ALT-TDTAL := DEALER . ALT-TDTAL + VALUE? 
IF (VALUE = 1) HMD (.DEALER. ALT_TDTAL <= 11) THEN 

DEALER. ALT-TDTAL S= DEALER . ALT-TDTAL + 10? 
IFEHIt? 

CRSE MB? 
PRDL-EHIi deal? 
" EJECT '••'••• 
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1322 
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?9- 1 0- 1 
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SOURCE LISTING - blackjack 



295 

£96 



2'r 1 ^ 
3 U 
3 1 J 1 
3 02 
3 03 
3 04 
305 

Ob 

7 
303 

3 U 9 

3 1 
311 
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3 1 3 
314 
315 

3 1 6 
31? 

318 
319 

32 
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RRDCEUl'KE getcapp tVRR value: 1 

nam: string '.5>>« 
f FMT O'ORMRT := DFF> ?"? 



10 j 



VAR 

deck: [static] array 

name: sjping <-3> ? 

1. . 10« 

BOOLEAN? 



CI . .52 J OF RECOPI' 



val : 
used: 

RECENT" 

[["ACE 

[•'FOUR • 

[/SEVEN' 

L - TEN 



"? 1 ? FALSE] ? [" TWO 
? 4? FALSE] ? [" FIVE 
? 7? FALSE] ? L" EIGHT 
? 10? FALSE] ? II'' JACK 



' ? 2? FALSE] ? [" THREE ' ? 3? FALSE J ? 

« 5? false] !> ['six " ? 6? frlseJ ? 
»8? false] ? [" NINE " J 9" FALSE] !> 
" !i 1 ? false] ? 



[ •'' EUEEN •' ? 10? FALSE] ? [ ' K I NG " ? 1 ? F ALSE] ? 

[''ACE "' ? 1 ? FALSE] ? ['TWO ",£.? FALSE] ? ['THREE' ? 3? FALSE J ? 
[ ■' FOUR ' ' » 4 ? FALSE] J [ " F I l.-'E '' ? 5 J FALSE] ? ["SI X " JbJ FALSEJ J 
[ '' SEVEN " ? ? ? FALSE] ? ["EI GHT "' » 8 ? FALSE] J [ ' N I NE ' ? 9 ? FALSE] J 

[" TEN " J 1 0? FALSE] ? L" JACK " ? 1 0? FALSE] ? 

[ " EUEEN " * 1 J FALSE] ? L " K I NS " ? 10? FALSE] ? 

['ACE " ' J 1 ? FALSE] ? ["TWO " ? 2? FALSE] J ["THREE" jSpFALSEJ J 
[ ' FOUR " ? 4 ? FALSE] ? [ " F I VE ' J 5 ? FALSE] ? ["SI X " ? 6 < FALSE J ? 

[ ■' SEVEN ' " ? 7 ? FALSE] ? ["EI SHT " J 8 ? FALSE J J C " N I NE ' ? * ' FALSE J ? 
[•'TEN ' J 10? FALSE] » ["JACK ' J lO'FALSEJ ? 

[''EUEEN "' ? 1 0? FALSE] ? [" KING " ? 1 0? FALSE J ? 

['ACE " ? 1? FALSE] ? ["TWO '« 2? FALSE J ? ["THREE' ? 3? FALSE] ? 
["FOUR "? 4? FALSE] ? ["FIVE ' ? 5 ? F ALSE] ? [ " S I X " ? 6 » F ALSE J ? 
[ ' SEVEN ' ? ? ? FALSE] * ["EI GHT ' ? S ? FALSE] > [ " N I NE " ? 9 ? FALSE J ? 

['TEN " ? 1 0? FALSE] ? ['JACK ' • 1 I.I? FALSE] ? 

[" EUEEN' ? 1 0? FALSE] ? L" KING '" ? 10? FALSE J ] ? 
FMT <. FORMAT := DN .>'■'? 

■-•■ EJECT ?■? 



,-YML,T.f: VI. 790712 SOURCE LISTING - *l«kj«k 

79-10-01 11:4?: 15 PH6E . y 

13££ ; -: : <-'' 

1322 323 VHR 

v-.-.o -it"^ 1: 1 .. t>3» 

r™ '-.-,;, *: [static] 1 .. £000000 := i> 

JXc". ^i y: CSThTICD 1 .. £000000 := 1» 

ito* v'^d *: .. £000000* 

}'-".o : --V-i rouNT: [STATIC] Li .. 52 := 5c" . 

JX^ 1 ; : -; : .;4 Y.STflPTEP! .. OFF < 1 6> 5 

13££ 335 

•:o --; -; t , ,-DUNT : = COUNT - 1 J 

lt ! -, 4 """:--:3r IF count < 10 THEN 

1336 338 writes (m.shuffleJ j 

i --an ■'<*.'-* count := 515 

l=; 4 i :^4u FOR i := 1 TO 5£ DO 

1 : -'4S -:•* 1 heck 1 1 3 . used : = FhL;-E • 

lSft£ 342 FDREND? 

1355 343 I FENDS 

1?.SF. 344 x s= x + >::? 

13*1 345 IF x > 99999? THEN 

1:-:^..-: 346 

1363 347 I FEND5 



_ Q'liQQ'4" 



l:-:, 7 l 348 r ! = v + y« 

!•..-"=; -;4'h IF Y > 999971 THEN 

137? 35 Y := y - 999971 



1405 35£ 
1411 



1>:?7 351 I FEND! 

= X + YJ 

= s it iv 10; 

1417 354 i := <s MOD 5£> + 15 

14£6 355 WHILE deck Ci3 . used DO 

14-I4 :-: c ;f. i := i + i; 

1437 357 IF I > 52 THEN 

1441 358 I := i; 

144£ 359 I FEND; 

144?. 3b WHiLENH; 

1 444 3b 1 beck L i J • uses : = T RUE ? 

14Sf'i 362 i,-fiL.uE := deck Ci] . ••- , f.i_; 

1456 363 nam := beck [i] . name 5 

14P1 364 PRDuEND .3ETCF.fi- 5 

14 71 365 MODEND bi_f.ckjf.ck; 

! r:YEIL.-CC VI ,0 790712 COMPILHTIOH SUMMARY - buf.ckjf.ck 

~ ?9 _ i |,1 hi 1 1 : 4 ? : 1 5 PHbE 1 
ri 3t>t. LI HE'S COMPILED. 

Ntl lOPVILhTION ERRORS. 
£01 fc TiT Cli.tf -t T J- h F I' . 



